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PREFACE 



Students are finding that after they have been through the intro- 
ductory texts presenting BASIC they are pretty much on their own. 
They may get additional bits and pieces of assistance from other texts, 
finding that each adds something to their repertoire, but there is still 
all that introductory material to sort through. The present text is in- 
tended for those who have been introduced to the BASIC language and 
want to go further with the language. It is also intended for those who 
have already learned another language (such as FORTRAN or COBOL) 
and need only a brief introduction to what is for them a second or 
third programming language. 

A review chapter is placed at the beginning of the book for those 
whose coverage of BASIC may have been somewhat limited or distant 
in time, and for those who come to it with competence in one or more 
other programming languages. In fact, this text can even be used by 
students with no former programming experience, if tutorial assistance 
is available, by a more extensive use of the review chapter. 

Some extended features of BASIC are presented so that students 
working on systems providing extensions will have an opportunity to 
experiment with or master new techniques. Strings and files are intro- 
duced in Chapters 3 and 4. Due to the variety of implementations for 
use of both strings and files, two systems are presented in each area: 
General Electric and Hewlett Packard. 

In addition to other topics, the applications chapters cover 
coordinate geometry, area, sequences and series, polynomials, graphing, 
simulation, and games. These chapters may be studied independently 
and in any order, although, where appropriate, the student may occa- 
sionally be referred to another section in the text. Generally these 
topics evolve from 6r build on the ground of a second course in algebra 
and beyond. 

The topic of efficiency is treated explicitly on several occasions, 
though not necessarily to the point of optimizing execution time. The 
topic of structured programming is treated implicitly in that all exam- 
ple programs incorporate a clear programming style with minimal un- 



conditional branching and maximal use of appropriate data and control 
structures. These two topics provide good stepping-off points in a 
computer science course. 

Appendix A presents an abbreviation of the ASCII character 
codes. Appendices B and C summarize flowchart shapes and program 
statements in BASIC. Appendix D is an index of the nearly 100 demon- 
stration programs in the text. Some solution programs for selected 
problems in the text follow these appendices. 

I wish to thank Community Computer Corporation for computer 
time, General Electric Information Services for assistance, and those 
who commented on the first draft for invaluable suggestions. 

James S. Coan 
Philadelphia 
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REVIEW OF 
BASIC 



1-1 Introduction 

This chapter is intended to serve several purposes. The student who is al- 
ready competent in BASIC will move quickly through the chapter and perhaps 
write a few programs. The student who has studied BASIC, but not recently or 
not extensively, will want to move more slowly and write more programs. The 
student who comes to BASIC with competence in another language will be 
mainly interested in the differences between the language with which he or she is 
familiar and BASIC. 

There are numerous implementations of BASIC available in schools, col- 
leges, and businesses today. These implementations have many common fea- 
tures and some differences. This chapter will concentrate primarily on those 
features which are almost universally available. We will mention some of the 
more common variations (you can usually determine which features are part of 
your system by writing very short programs to see what works), but beyond that 
the student should obtain the specific features for his system from the BASIC 
reference manuals supplied by the computer center or the vendor. 

It is also true that the specifications sometimes change as the people 
responsible for maintaining the computer update its language capabilities. Since 
these changes tend to be additions, however, programs previously tested will 
usually still run. 

1-2 Some Simple Programs 

We can demonstrate many features of BASIC by writing a program that 
will compare two numbers to determine whether the first is greater than, less 
than, or equal to the second. See program C0MPAR. 
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L 1ST 
CCMPAR 

94 REM * THIS IS A SAMPLE PROGRAM TO 

95 REM COMPARE TWC N'JMRERS FOR ORDER 
100 READ A.R 

MO IF A = .01 THEN P.20 

120 IF A = R THEN 1*0 

130 IF A < R THFN 1R0 

140 PRINT A; "IS GREATER THAN"; R 

150 GOTO 100 

IAO PRINT A; "IS EO'IAL TC " ; R 

170 OCTC 100 

1R0 PRINT A; "IS LESS THAN"; R 

190 C-OTC 100 

192 

194 REM 

200 DATA 3.4, 1.7,1.1. 31.31. -3.?. 

310 DATA .01.0 

aao END 

RUN 

COMPAR 

3 IS LESS THAN A 
1.7 IS GREATER THAN 1 . 1 
31 IS F.OIJAL TC 3 1 
-3 IS LESS THAN s> 
IS EO'IAL TC 



The first item shown is LIST. This is a system command rather than a 
program statement, and we type it to instruct the computer to print out the 
program exactly as it stands. Next the computer automatically prints C0MPAR, 
which is the program name. Some computers also print the time of day and date 
along with the program name. On some systems we assign program names with 
the system command NAME-C0MPAR. On others, to name a new program, 
NEW C0MPAR is typed before the program itself is. Having typed the pro- 
gram name, the computer goes on to list the program itself. Let us examine the 
program statements. 

Read-Data 

Line 100 is a READ statement. In this case we want the computer to 
READ two numbers into two variables A and B. Those numbers must come 
from one or more DATA statements. We provide data in lines 200 and 210. 

Conditional Transfer 

Lines 110, 120, and 130 are all examples of the conditional transfer in 
BASIC. Line 110 is used to terminate the execution of the program itself. We 
send the computer to the END statement only if the value of A is .01. This is an 
example of the use of dummy data to control program execution. Lines 120 
and 130 direct the computer to the appropriate PRINT statement according to 
the relation between the values of A and B. BASIC also allows "greater than" 
(>), "greater than or equal to" (>=) and "less than or equal to" (<=). To test 
for "not equal to" use (< >). Some systems also allow "#" for "not equal to." 

In place of the algebraic symbols just mentioned, some systems require 
special symbols as relational operators. They are (\LT) or (LT) for "less than," 



Review of BASIC 3 

(\LE) or (LE) for "less than or equal to," (\GT) or (GT) for "greater than," 
(\GE) or (GE) for "greater than or equal to," (\EQ) or (EQ) for "equal to" 
and (\NE) or (NE) for "not equal to." The paired relational operators listed 
above are not generally interchangable. The first is for certain systems, and the 
second is for others. So there are three sets of possible relational operators. 
You can quickly tell which works on your computer by consulting the vendor- 
supplied manual or by trial and error. 

Another conditional transfer is available on many systems. It is called the 
computed G0T0. It takes the form, 

100 0NKG0T0n 1 ,n 2 ,n 3 ,etc. 
or 

100 G0T0K0Fn 1 ,n 2 ,n 3 ,etc. 
or 

100 G0T0n 1 ,n 2 ,n 3) etc, 0NK 

At line 100 computer control passes to line n t if K = 1, 1 2 if K = 2, etc. If K 
is not in the range from one to the number of line numbers named, some sys- 
tems terminate with an error message, while others simply pass control to the 
line after 100. 

Print 

Lines 140, 160, and 180 result in printed output to the terminal for the 
operator to see. We may mix literal output with numeric results by enclosing 
literal messages in quotation marks. Replacing semicolons in the PRINT state- 
ment with commas would result in wider spacing of printed output. On many 
systems, using commas to separate printed results causes the page to be divided 
into five columns of 15 characters each. For terminals with only 72 character 
spaces, the fifth column is 12 characters wide. Generally speaking, use of a semi- 
colon to separate printed output results in closer spacing than with a comma. 

Unconditional Transfer 

Lines 150, 170, and 190 are examples of unconditional transfer. The 
G0T0 statement in BASIC serves to name the number of the next line to be 
executed. When the computer gets to line 150, the next line the computer exe- 
cutes is 100. The same is true for lines 170 and 190. Generally speaking, good 
programs try to minimize the number of G0T0 statements. We shall see ways 
to do this later. 

End 

The final statement in our example is the END statement. On most sys- 
tems the highest numbered statement must be an END statement. After the 
END statement we see the system command RUN, which is typed by us to cause 
the computer to actually carry out the instructions of the program. In response 
to the RUN command, the computer has printed the program name, C0MPAR 
(some systems will also print the date and time), followed by the printed output 



4 Advanced BASIC 

specified by the instructions of our program. (Some systems will follow pro- 
gram results with information about the computer resources used by this RUN 
of the program.) 

Variables 

In program C0MPAR we used A and B as variables to name stored nu- 
meric values. BASIC allows us to use every letter of the alphabet and also every 
letter of the alphabet followed by a single digit. (Some systems also provide ad- 
ditional symbols as variables.) Every letter or letter plus digit allows us to store 
a single number at any one time in a program. However, variables may be used 
over and over again to store new values as long as we have no further need for a 
particular old value. In C0MPAR, the variables A and B were each used for six 
different numbers. 

Prettyprinting 

Note the overall appearance of program C0MPAR. An attempt has been 
made to provide spacing within the program statements to facilitate readability 
and therefore clarity of thought. The practice of indenting and spacing to 
achieve this goal is called "prettyprinting." In program C0MPAR, the IF state- 
ments have been indented three spaces. Spaces have been inserted in the PRINT 
statements to avoid a crowded appearance. The blank REM in line 194 is used 
to offset the DATA portion of the program, and the data has been grouped in 
the DATA statements to show just how the values will be read in the READ 
statement. Some systems do not allow prettyprinting. However, if your system 
does allow prettyprinting, you should work on developing a style of spacing to 
enhance program readability. Prettyprinting becomes more and more worth- 
while as programs become longer and more complex. 

Arithmetic Operations 

The computer is often used to perform arithmetic operaiions on numbers. 
The operations allowed are exponentiation (**) or (t), multiplication (*), 
division (/), addition (+) and subtraction (-). The priorities assigned these opera- 
tors are the same as those assigned in conventional algebra, that is, first exponen- 
tiation followed by multiplication and division followed by addition and sub- 
traction. Program 0PRATN shows a use of each of the arithmetic operators. 



94 REM * THIS IS A SAMPLE PROGRAM TO DEMONSTRATE 

95 REM USE CE ARITHMETIC OPERATORS IN BASIC 
100 PRINT "AtB", "A*B"» "A/B", "A+B", "A-R" 
110 READ A, 8 

120 IF A o THEN 150 

130 IE B <> THEN 150 

140 STOP 

150 PRINT " A = "; A! "B ="; B 

ISO PRINT AiB, A*B, A/B. A+B. A-B 

170 PRINT 

1R0 GOTO 110 

IRS 

184 REM 

190 DATA 1,2, 3.4. 2,40, 1.4,65.2 

300 DATA 0,0 

210 END 
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RUN 






OPRATN 






AtB 




A*B 


A = 1 
1 


B 


= a 
a 


A = 3 


8 


- A 


SI 




la 


a = a 


B 


= 40 


1 .0995 IK* 12 




BO 



A/B A+B A-B 

0.5 3 - 1 



A = 1.4 B= «.8 
3.36936E + 9 91. 2R 2.14724E-2 



The RUN of 0PRATN produces three examples of what is called E-format. 
For A = 2 and B = 40, A**B results in 1.09951E+12. That means 1.09951 
times 10 to the twelfth power, or 1.09951 X 10 12 . Systems vary, but many 
provide from six to nine significant digits of numeric output. 

In 0PRATN, line 140 is equivalent to G0T0 210. The STOP statement 
in BASIC is used to terminate execution of a program at some point other than 
the highest numbered line. This line of the program is called a "logical end" to 
differentiate it from the physical end. 

Assignment 

Thus far, the way that we have gotten numeric values to be stored in vari- 
ables has been to READ values from DATA. We can also assign values directly 
as follows: 



100 


X = 


= 3 


or 


100 


LETX = 


3 


200 


Y = 


= 3*X+5 


or 


200 


LETT = 


3*X+5 



These are examples of the assignment statement in BASIC. (On some sys- 
tems the LET is required. On others it is optional.) Used in this way, the equals 
sign is called the assignment operator. The assignment capability greatly en- 
hances the power of any programming language since it permits us to retain 
values for later use. For example, we can sum up any number of data items as in 
program ADD. 



ADD 

94 REM * THIS PRCr ; iAM ADDS N ' 1 m 1 *" 3 S fROM DATA 

■ 100 LET S = 

1 in RFflD A 

120 IF A = - .01 THFN KO 

140 LTT S = S+A 

150 GOTO 1 10 

160 PRINT "S'l" IS"! S 
173 

174 REM 

1R0 DATA 21, 39, 11.3, 24.4. 91.3 

190 DATA -.01 

200 END 
RUN 
ADD 

SUM IS 1R7.2 
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In line 100 of ADD the summing variable S is initialized at zero. (Some 
implementations of BASIC automatically initialize all variables to zero when the 
program is run.) We now generalize program ADD to count the number of num- 
bers in the previous program. See lines 100, 130, and 140 of ADD1. 



94 REM * THIS PROGRAM ADOS AMD CC'IMTS 

95 REM NUMBERS FROM DATA 

— 100 LF.T S = C = 
I 10 RF.AD A 

120 IF A = -.01 THEN 150 

— 130 LET C = C+l 

— 140 LET S = S+A 
150 ROTO 1 10 

160 PRINT "SUM IS"; S 

170 PRINT "THERE ARE"! G: "N'>M=)ER5" 

172 

174 REM 

180 DATA 31, 39, 11.3, 24.6, 91.3 

190 DATA -.0 1 

300 END 

RUN 

ADD1 

SUM IS 18 7.2 

THERE ARE 5 N JMBFRS 

Line 100 of ADD1 is an example of a multiple assignment statement. It 
allows us to assign the rightmost value to all of the variables separated by equals 
signs. (Some systems require commas instead of equals signs for all but the 
rightmost equals signs. Our statement 100 would be 100 LET S,C = on such 
a system. You may be able to assign different values to different variables on 
one line, for example, 100 LET H = 4, Y = 9*K, B = 81, or even 100 LET 
H,I,J = 3,T = -32.) 

Input 

The final statement of this review section which results in variables con- 
taining numeric values is the INPUT statement. It is this statement which allows 
the operator to interact with a program during execution. When the computer 
executes an input statement, it prints a question mark at the terminal and awaits 
information from the keyboard. If we replace READ A with INPUT A in pro- 
gram ADD and remove the DATA statement, we have a program that behaves a 
little like an adding machine. By printing a marker such as # followed by a 
semicolon in line 130 we can type our selected numbers on the same line as 
the marker, as in program ADD2. 



ADD2 

94 REM * THIS PROGRAM WGRKS A LITTLE 

95 REM LIKE AN ADDING MACHINE 

100 PRINT "INPUT * = -.01 TC OBTAIN TOTAL 

110 PRINT 

120 LET S = 

-130 PRINT "#"! 

140 INPUT A 

!50 IF A = -.01 THEN 180 

160 LET S = S+A 
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170 GOTO 1 


30 


180 PRINT 


"SUM IS"; S 


190 END 

RUN 




ADD2 




INPUT * = - 


.01 TC C3TAII 


#745 




#778 




#7 34 




0798. 12 




#743 




#7-. 01 




SUM IS 298. 


12 



Note that input statements may be used to call for several values. 100 IN- 
PUT X,Y,B9 calls for three numbers to be typed, separated by commas at the 
keyboard. 

Summary of Sec. 1-2 

We have looked at three system commands to give a program a name, in- 
struct the computer to RUN a program, and to LIST a program. We have used 
the following eight statements in programs; READ, DATA, IF-THEN, PRINT, 
END, ST0P, LET, and INPUT. With just these statements we are able to write 
substantial programs (nevertheless, the language does contain tremendous ad- 
ditional power in other statements to come in the next sections). The concepts 
of variable and program control have been discussed. We have looked at three 
kinds of operators: arithmetic, relational, and assignment. 

Problems for Sec. 1-2 

1) Write a program to average numbers entered as DATA or on INPUT. 

2) Write a program to find the largest and/or smallest number of a set of 
DATA. 

3) Write a program to repeatedly average groups of numbers. 

4) Write a program to add all positive integers from 1 to n, where n is an 
item of DATA. 

5) Write a program to calculate n factorial. Be sure to make the value of 
0! equal 1. 

6) Write a program to solve equations of the form, ax + b = ex + d. 

7) Write a program to solve quadratic equations, ax 2 + bx + c = 0. 

8) Write a program to find the sum of the reciprocals of the first n positive 
integers. 

1-3 Functions, Loops and Lists 

BASIC provides computer functions or subroutines for special purposes. 
INT(X), SGN(X), ABS(X), and SQR(X) are among them. On some systems the 
INT(X) function takes the greatest integer not greater than X, such as 4 for 4.3 
and -2 for -1.6. Other systems simply give the integral part of X, such as 4 for 
4.3 and -1 for -1.6, by removing the decimal part. For non-negative numbers, 
the two are equivalent. SGN(X) becomes +1 if X is positive, zero if X is zero, 
and - 1 if X is negative. ABS(X) becomes X if X is non-negative and becomes -X 
if X is negative. SQR(X) becomes the principle square root of X so long as X is 
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non-negative. Each of these functions is useful. However, it is likely that of 
the four, INT(X) is most frequently used. 

One use of INT(X) is to round off numeric results. For example, to round 
to the nearest integer, use INT(X+.5). To round to the nearest hundredth, use 
INT(100*X+.5)/100, etc. See line 150 of program R0UND. 



ROUND 

94 REM * THIS PROGRAM DEMONSTRATES A USE OF THE 

95 REM INK ) FUNCTION IN BASIC FC R ROUNDING 

96 REM NUMBERS 
100 LET E = 

1 10 LET X = 1 .H2S6A 

120 PRINT "ROUND"! X 

130 PRINT 

140 PRINT "POWER OF TENTHS", " HOUNDS TO" 

■150 LET R = INK X*10tE+.5 )/10»E 

160 PRINT E, R 
168 

164 REM * LINE 170 INCREMENTS THE EXPONENT OF 10 

170 LET E = E+l 
1RO IF F. <- 5 THEN 150 

190 END 
RUN 
ROUND 

ROUND I.R2564 

POWER OF TENTHS ROUNDS TO 

?. 

1 1 .8 

2 1 .R3 

3 1.826 

4 1.B256 

5 ' 1.B2564 



INT(X) is also used frequently to test numbers for divisibility by other 
numbers. For example: 

100 IFX/10 = INT(X/10) THEN 200 

transfers the computer to line 200 if X is divisible by 10, but the computer goes 
to the line immediately following 100 if X is not divisible by 10. One problem 
solution that uses this is that of finding all factors of a certain number. We 
simply try all integers from 2 to the number and test for divisibility. If the divi- 
sor goes evenly, we print it; if not, we go to the next divisor. This is left as an 
exercise. 

Random Numbers 

BASIC provides a routine to generate pseudo-random numbers. These are 
very useful as a source of data for simulating random events. The procedure 
varies somewhat from system to system. All systems provide decimal numbers 
in the range, to 1. One procedure introduces random numbers by using 
RND(X) in a statement such as 100 LET A = RND(X). The particular ran- 
dom numbers are duplicated or different from one run to the next according 
to the value of X. If X is negative, then you get a different set of random num- 
bers from run to run. If X is 0, then each run of the program produces the same 
succession of random numbers. And if X is positive, then the set of random 
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numbers is based on the value of X. A second procedure does not require an 
argument for RND. The statement 100 LET A = RND selects a random num- 
ber and assigns it to A. However, used alone it generates the same set of random 
numbers from one run to the next. To obtain a different set of random num- 
bers from run to run, simply introduce the companion statement 10 RAND0- 
MIZE into the program. The ability to reproduce the same set of random 
numbers is useful for finding errors in the program debugging process. Once the 
program has been perfected, it can then be modified to produce different results 
for each run. 

Most of the uses for random numbers are for numbers in some range other 
than to 1. So we have to do the appropriate calculations to change the range. 
For example, to "roll a die" we would use 100 LET R = INT(6*RND(-1)+1) 
or 100 LET R = INT(6*RND+1). This would give integers in the range 1 to 6 
inclusive. In the statement, 200 LET N = INT(A*RND+B), A specifies the 
possible number of random integers and B specifies the smallest possible random 
integer. 

Loops 

Suppose we place ten slips of paper numbered 1 to 10 into a hat and have 
five people draw one slip of paper, note the number on it, and return the slip to 
the hat. This we can easily do with a program, as in program DRAW. 

Program DRAW and several other programs we have looked at contain 
examples of repetitive steps. This is a computer loop, and BASIC provides the 
F0R-NEXT statement pair to set up loops. Program DRAW01 uses F0R-NEXT 
to accomplish the same purpose as program DRAW. Note that both programs 
simulate returning the slips to the hat. 

DRAW 

94 REM * THIS PROGRAM SIMULATES RANDOM DRAWING 

95 REM FIVE NUMBERS FROM AMONG 10 WITH REPLACEMENT 
100 RANDOMIZE 

1 10 LET X = 1 

120 LET R = INT< RND*10+1 ) 

130 PRINT R; 

140 LET X = X+l 

ISO IF X <= 5 THEN 120 

160 END 

RUN 

DRAW 



DRAW 1 

94 REM * THIS PROGRAM DIFFERS FROM DRAW 

95 REM IN THAT F0R-NEXT IS NOW INTRODUCED 
100 RANDOMIZE 

-110 FOR X = 1 TO 5 
120 LET R = INK RND*I0+1 ) 
130 PRINT RJ 
140 NEXT X 
142 

150 END 
RUN 
DRAWOl 
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Lists 

Now suppose that the five people who drew slips of paper from the hat 
did not replace them. We must make sure that no number is drawn twice. In 
order to achieve this goal we need to be able to keep track of what numbers have 
been drawn and what numbers are left. This can be done rather nicely using a 
subscripted variable called a "list." A list, designated by a single letter, reserves 
space for more than one number. At the time that we first designate a list 
variable, the computer automatically reserves 10 locations (some computers re- 
serve 11 by allowing zero as a subscript). We can simulate the numbered slips 
of paper in the hat by establishing a 10-item list with the integers 1 through 10 
stored in locations 1 through 10. This is done by the following routine: 

100 FOR I = 1 TO 10 
1 10 LET LCI ) = I 
ISO NEXT I 

Line 110 sets up the subscripted variable L( ) so that L(l) = 1, L(2) = 2, etc., 
through L(10) = 10. If we need more than 10, we can get them by using the 
DIMension statement. This is usually placed at the very beginning of the pro- 
gram. For example, if we want 25 slips of paper in our hat, we would begin with 
10 DIM L(25), and 25 locations would be available. Note that we could dimen- 
sion for 25 and then use only 10 of them, but we cannot use more than the 
DIM statement specifies. Any number of lists may be dimensioned on the same 
line as: 10 DIM A(36), B(43). Systems allow a maximum number of storage 
locations from a few thousand to many thousands. 

Now we can develop a procedure to select five numbers at random without 
replacement. For the first draw there will be 10 numbers from which to draw; 
for the second draw one has been removed, leaving nine. The process is re- 
peated until there remain only six from which to draw for the last draw. This 
can be done with another F0R-NEXT pair. We can step backwards with F0R 
J = 10 T0 6 STEP -1. We may specify all three numbers on the right of the 
equals sign by variable or formula. 

If we design a program that merely checks to see if the latest number has 
already been drawn, then we get into a trial and error situation. And if we try 
to draw 10 numbers from among 10, or worse yet, 100 from 100, the drawing 
gets slower and slower as we get nearer and nearer to the last draw (adding sus- 
pense and expense). For efficiency's sake we should avoid this pure trial and 
error scheme. Thus consider the following procedure for eliminating trial and 
error entirely. 

For the first draw we may select a number R at random from one to 10. 
We may use the value of L(R) as the number on our randomly selected slip of 
paper. If we draw the same value of R later on, we need a method that does not 
require testing to see if L(R) has been used. We can acheive this by simply re- 
placing the value of L(R) with the value of L(J) where J is the number of slips 
from which the drawing is being made after each drawn number has been 
printed. The important consideration here is that this scheme allows us to use 
every number that is drawn. We have taken care here to develop an efficient 
algorithm to solve the problem submitted to us. See in particular line 160 in 
program DRAW02. 
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94 REM * THIS PROGRAM SIMULATES RANDOM DRAWING WITHOUT 

95 REM REPLACEMENT AND WITHOUT TRIAL AND ERRCR 
96 

97 REM * LINES 100-120 SIMULATE 10 SLIPS 

9R REM OE PAPER IN A HAT 

99 RANDOMIZE 

100 E0R I = 1 TO 10 
1 10 LET L(I ) = I 
ISO NEXT I 

122 

124 REM * NOW DRAW FIVE NUMBERS AT RANDOM 

130 FOR J = 10 TO 6 STEP - 1 

140 LET R = INTC RND*J+1 ) 

150 PRINT LCRJJ 

152 

154 REM * NOW REPLACE THE NUMBER JUST PRINTED 

155 REM WITH THE LAST NUMBER IN THE LIST 
-160 LET LCR) = LCJ) 

170 NEXT J 

172 

180 END 

RUN 

DRAW02 



We can see from a run of DRAW02 that no number has been drawn more 
than once, but one run is not a certainty. A further check can be made by draw- 
ing all 10. We leave this as an exercise. 

More Functions 

In addition to the functions already described, the following are univer- 
sally available: SIN, C0S, ATN, L0G, and EXP. SIN(X), C0S(X) and TAN(X) 
give the sine, cosine, and tangent of X, where X is taken as an abstract dimen- 
sionless number or the measure of an angle in radians. ATN(X) gives the princi- 
ple arctangent in radians, where X is the tangent of the required number. 
L0G(X) gives the natural logarithm of a non -negative X and EXP(X) gives e x . 
Besides these there are other functions which may or may not be available on a 
particular system. Among these will be log base 10, secant, cosecant, etc. On 
some systems CLK(X) gives the present time using a 24-hour clock, and TIM(X) 
gives the elapsed time of program run in seconds. It is best to consult the 
manual for your system to determine the full extent of function capabilities. 

Summary of Sec. 1-3 

BASIC generally provides INT, SQR, SGN, ABS, SIN, C0S, TAN, ATN, 
EXP, and L0G as standard functions, where trigonometric functions are based 
on radian measure and exponentials use e as the base. The routine RND is avail- 
able to provide random numbers. The language created loop is F0R A = B 
T0 C STEP D, where the loop variable A first takes on the value of B and 
increments by D until A passes C and control passes to the next line following 
NEXT A which closes the BASIC loop. The default STEP value is always 1. 
The list is available as a subscripted variable to allow block storage of several 
numbers attached to a single letter. The DIM statement is required for sub- 
scripts exceeding 10. 
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Problems for Sec. 1-3 

1) Write a program to find the absolute value without using any of the 
functions introduced in this section. 

2) Write a program to find the greatest integer in X without using the 
INT function. Be certain it works for negative numbers. 

3) Write a program to roll two dice. 

4) Write an efficient program to deal four 13 card hands from a standard 
52 card bridge deck. 

5) Write a program to store 25 random numbers in a list, print them all, 
and print the largest and the smallest along with their respective 
positions in the list. 

6) Write a program to print all factors of an integer entered on INPUT. 

7) Write a program to print prime integers in the range 2001 to 2501. 

8) Find the greatest common factor for pairs of integers. 

9) Find the least common multiple for pairs of integers. 

10) Generate 100 integers at random from one to 10. Use a list to tabu- 
late their frequency of occurrence. 

11) Write a program to print a table of trigonometric values in a 10 degree 
range by intervals of 20 minutes. Pick any one function. 

12) Modify DRAW02 to draw all 10 slips of paper. 

13) Write a program to produce the results of C0MPAR using 
SGN(A - B) and the computed G0T0 statement. 

1-4 User Defined Functions, Subroutines, and Arrays 

User Defined Functions 

Another kind of computer function is available in BASIC. It is called the 
"user defined function" and has the following form: 

100 DEFFNA(X) = [formula] 

If the A is positioned in FNA(X), you may use instead any letter of the alphabet 
as the identifier, thus designating up to 26 functions in any one program. For 
example, we might want to round off results to the nearest hundredth in several 
places in a program. We would then use 

100 DEF FNH(X) = INT( X*100+.5)/100 

and then use FNH( ), placing whatever variable we want rounded off in the 
parentheses. Generally speaking, programmers place DEF statements near the 
beginning of the program, and some systems require that this be done. Some 
systems allow only a single argument; some allow two or more; some allow none. 
We may use any variable or legal BASIC expression, including a defined func- 
tion, as an argument. 

Suppose we define a polynomial function, select a few values of X 
between -10 and 10 at random and round the results to the nearest tenth. See 
program PRT. 

Defined functions are useful whenever we wish the computer to return a 
single value. 
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94 


REM 


* THIS 


PROGRAM 


DEMONSTRATES THE SINGLE 


95 


REM 


LINE 


DEFINED FUNCTION IN BASIC 


99 


RANDOMIZE 






— ■ 100 


DEF 


FNPCK) 


= .1 . 4 1 *K 


t 3 * 4. 32*Kt2 - 1 1 .2*K 


— 110 


DEF 


FNR(K) 


= INTC K*RND+1 ) 


— ISO 


DEF 


FNTCK) 


= INTC K*IOt.5 )/10 


130 


PRINT "X" 


, "FNPCX) 


", "FNTCFNP(X) )" 


140 


FOR 


C = 1 


TO 5 




150 


LET X = 


FNRC21 )- 


1 1 


160 


f 


3 RINT 


X> FNPtX) 


, FNTCFNPCX)) 


170 


NEXT C 






172 










180 


END 








RUN 










PRT 










X 






FNP(X) 


FNTCFNPCX) ) 


8 






1949.53 


1949.5 


6 






841 .6 1 


B41 .6 


-5 






-245.52 


-245.5 


10 






3746.73 


37 46.7 


-8 






- 1363. 1 1 


- 1363. 1 


Subroutines 











If we want the computer to return with two or more values, we cannot 
use a defined function. Also, in the unlikely case that we want more than 26 
functions, we need a new capability. In such cases we use a subroutine. A sub- 
routine amounts to a detour in the program that returns to the statement im- 
mediately following the one that caused the detour in the first place. This 
capability permits a set of program statements to be accessed from more than 
one point in a program. The statement pair G0SUB-RETURN accomplishes 
this. 

One significant use of the subroutine is to improve the flow of control 
through a program. A subroutine may be used to eliminate the proliferation of 
G0T0 statements by replacing them with RETURN statements where appropri- 
ate. This technique often simplifies the writing of programs. Programs written 
in this way are also easier to read and thus easier to correct or modify later (see, 
for example, programs GRAPH2 and GRAPH3 of Chap. 5). 

Suppose that we want the product and the sum of two numbers modulo 
M. We can write a subroutine that calculates and prints both values. Then we 
can "call" the subroutine from anywhere in the program with G0SUB n where 
n is the first line of the subroutine. See lines 140 and 210 in program M0D. 



M0D 

94 REM * THIS PROGRAM DEMONSTRATES G0SUB 

95 REM WITH MODULAR ARITHMETIC 

99 RANDOMIZE 

100 DEF FNR(X) = INTC RND*X+1 ) 

110 PRINT "FIND A*B AND A+B MOD M" 

120 PRINT "A.B.M") 

130 INPUT A. B, M 
-140 GO SUB 500 

150 PRINT 

160 PRINT "NOW DO FOUR nrtNDBM CALCULATIONS" 

170 FOR I = 1 TO 4 
180 LET M = FNR<9)+1 



14 Advanced BASIC 

190 LET A = FNRCM-1 ) 

200 LET B = FNRCM-1 ) 

— S10 GO SUB 500 

220 NEXT I 
222 

224 REM * THE STOP STATEMENT PREVENTS 

225 REM ILLEGAL SUBROUTINE ENTRY 
230 STOP 

492 

494 REM * MODULAR ARITHMETIC SUBROUTINE . 

500 LET P = A*B 

510 IF P < M THEN 540 

520 LET P = P-M 

530 GOTO 510 

540 LET S = A+B 

550 IF S < M THEN 580 

560 LET S = S-M 

570 GOTO 550 

580 PRINT A; "*"; B; "="; Pj A) "+"; B; "=") S; "MOD"; M 

590 RETURN 

592 

999 END 

RUN 

MOD 

FIND A*B AND A+B MOD M 
A.B.M? 2,5.6 
2*5 = 4 2 + 5 = I MO D 6 

NOW DO FOUR RANDOM CALCULATIONS 

3*2=2 3 + 2=1 MOD 4 

2*1 = 2 2+1 = 3 MOD 5 

1*3=3 1 + 3=4 MO D 8 

2*4=8 2 + 4 = 6 MOD 9 

Subroutines may in turn call other subroutines as in both lines 510 and 
550 of MODI. One thing to avoid in subroutines is inadvertent use of variables 
that have been used elsewhere in the program. Subroutines called from other 
subroutines are called "nested subroutines." (What else?) In our example 
M0D1 we have nested them two deep. Systems vary, but many have a limit on 
how deep subroutines may be nested. 

M0D1 

94 REM * THIS PROGRAM INTRODUCES A NESTED 

95 REM GO SUB INTO PROGRAM MOD 

99 RANDOMIZE 

100 DEF FNRCX) = INT< RND*X+1 ) 

110 PRINT "FIND A*B AND A+8 MOD M" 

120 PRINT "A.B.M"! 

130 INPUT A. B. M 

140 G0SUB 500 

150 PRINT 

160 PRINT "NOW DO FOUR RANDOM CALCULATIONS" 

170 FOR I = 1 TO 4 

180 LET M = FNRC9J+1 

190 LET A = FNRCM-1 > 

200 LET B = FNRCM- 1 ) 

210 GO SUB 500 

220 NEXT I 

222 

224 REM * THE STOP STATEMENT PREVENTS 

225 REM ILLEGAL SUBROUTINE ENTRY 
230 STOP 

492 

494 REM * MODULAR ARITHMETIC SUBROUTINE 

500 LET N = A*B 
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510 


GOSUB 700 


520 


LET P = N 


540 


LET N = A + B 


550 


GOSUB 7 00 


560 


LET S = N 


580 


PRINT A; "*■■; B; " = ") P; A; "+"j B 


590 


RETURN 


592 




694 


REM * REM REDUCES N TO A NUMBER MOD 


700 


IF N < M THEN 730 


710 


LET N = N-M 


720 


GOTO 700 


730 


RETURN 


7 32 




999 


END 


RUN 




MODI 




FIND 


A*B AND A+B MOD M 


A.B.M? 3.4,5 


3 * 


4 = 2 3 + 4 = 2 MOD 5 



SJ "MOD"} l> 



NOW DO FOUR RANDOM CALCUL AT IC-M S 
2*3 = 4 2+3 = 5 MCDB 
4*1 = 4 4+l = 5MCD9 
2*2=4 2 + 2 = 4 MO D6 
6*8=8 6+R=4M0D10 

Some systems have a computed G0SUB statement similar in format to 
the computed G0T0. The format is: 

100 0NKG0SUBn 1) n 2 ,n 3) etc. 
or 

100 G0SUBK0Fn 1 ,n 2 ,n 3 ,etc. 
or 

100 G0SUBn 1 ,n 2 ,n 3 ,0NK 
Arrays 

An array is simply a two dimensional list. For this we use two subscripts 
separated by a comma and enclosed in parentheses. The first subscript desig- 
nates the row and the second subscript designates the column. As with lists, 
we can use a subscript as high as 10 without the need for a DIM statement. 

Suppose you recorded the temperature at 6AM, 12NOON and 6PM for 
one week. This data could easily be stored in an array to enable a program to 
carry out various calculations, for example, see program WETHR. 



94 


REM * THIS PROGRAM FINDS AVERAGE TEMPERATURE 


95 


REM TO DEMONSTRATE A USE OF ARRAYS 


100 


DIM AC6.4) 


102 




104 


REM * READ DATA 


1 10 


FOR D = 1 TO 5 


120 


FOR I = 1 TO 3 


130 


READ ACD, I ) 


140 


NEXT I 


150 


NEXT D 


152 
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154 
160 
170 
1B0 
190 
200 
210 
220 
222 
224 
230 
240 
250 
260 
270 
280 
290 
292 
300 
310 
320 
322 
324 
325 
326 
330 
340 
350 
360 
370 
3FS0 
382 
390 
400 
410 
420 
422 
430 
440 
450 
460 
470 
472 
474 
480 
490 
500 
RUN 
WETHR 



REM * CALCULATE AVERAGE EACH 
FOR D = 1 TO 5 

LET T = 

FOR I = 1 TC 3 

LET T = T+ACD, I ) 

NEXT I 

LET ACD, 4) = T/3 
NEXT D 



REM * CALCULATE AVERAGE EACH READING 
FOR I = 1 TO 3 

LET T = 

FOR D = 1 TO 5 

LET T = T+A(D» I ) 

NEXT D 

LET AC6, 1 ) = T/5 
NEXT I 



PRINT 
PRINT 
FOR D 



•DAYSTIME". "6AM", 



1 TC 5 



•12N0GN". 



"DAILY AUG" 



REM * KEEP TERMINAL ON THIS LINE 
REM FOR THE NEXT PRINTED RESULT 
REM WITH TRAILING COMMA IN LINE 
PRINT "DAY"; D, 
FOR I = 1 TO 3 

PRINT ACD, I), 
NEXT I 

PRINT ACD, 4) 
NEXT D 



FOR I = 1 

PRINT 
NEXT I 
PRINT 



TO 50 



PRINT 
FOR I = 

PRINT AC6 
NEXT I 
PRINT 



AVERAGES" 
1 TO 3 

I >, 



REM 
DATA 
DATA 
END 



27, 
43, 



36,34, 
41 , 37, 



40,50,55, 
30, 33,28 



50,52,48 



DAYSTIME 


6 AM 


DAY 1 


27 


DAY 2 


40 


DAY 3 


50 


DAY 4 


43 


DAY 5 


30 


AVERAGES 


38 



12N00N 


6 PM 


36 


34 


50 


55 


52 


4S 


41 


37 


33 


28 



DAILY AVG 


32. 


i3333 


48. 


i3333 


50 




40. 


. 3333 


30. 


.3333 



Even though the computer permits a subscript as high as 10 for rows and 
for columns, it does not require that we use them all. In WETHR we used only 
six rows and four columns. 

Note that we used loops within loops, or nested loops, several times in 
WETHR. The requirement here is that the loops must be nested entirely within 
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other loops. If a program contains F0R X = A T0 B followed by F0R Y 
= C T0 D, the NEXT Y statement must appear before the NEXT X statement. 
Once the data is stored, it is a simple matter to obtain other information. 
For example, we can find the highest temperature reading for the week as in 
WETHR1. 



WETHR! 

94 REM * THIS PROGRAM FINDS HIGHEST TEMPERATURE 

95 REM IN A FIVE DAY PERI0D USING ARRAYS 
100 DIM AC6.4) 

102 

104 REM * READ DATA 

110 FOR D = 1 TO 5 

120 FOR I = 1 TO 3 

130 READ A(D.I> 

140 NEXT I 

ISO NEXT D 

152 

154 REM * THE FIRST ENTRY IS THE HIGHEST SO FAR 

160 LET H = AC1. 1) 

170 LET R = C = 1 

180 FOR D = 1 T0 5 

190 FOR I = 1 T0 3 

200 IF ACD. I) <= H THEN 240 

202 

204 REM * IF THE CURRENT ENTRY IS HIGHER THEN 

205 REM SAVE DATA IN H, R, AND C 
S10 LET H = ACD. I) 

220 LET R = D 

230 LET C = I 

240 NEXT I 

250 NEXT D 

252 

260 PRINT "HIGHEST TEMPERATURE ="J H 

262 

264 REM * USE OF 24-HOUR CLOCK SIMPLIFIES 

265 REM PRINTING THE TIME 

270 PRINT "OCCURS AT"J C*600J "HOURS ON DAY"; R 

47 4 REM 

480 DATA 27.36.34. 40.50.55. 50.52,48 

490 DATA 43.41.37, 30.33.28 

500 END 

RUN 

WETHR 1 

HIGHEST TEMPERATURE = 55 

OCCURS AT 1800 HOURS ON DAY 2 



Summary of Sec. 1-4 

BASIC allows tremendous flexibility in the user defined functions. We 
may have up to 26 functions defined with DEF FNA(X) followed by an equals 
sign and any legal BASIC formula. 

For calculations that don't lend themselves to function definition, such 
as calculations requiring more than one value in the result, the subroutine 
entered with G0SUB is available. The end of a subroutine is indicated by the 
RETURN statement. 

Two dimensional variables are available in BASIC. A(I,J) designates the 
Ith row and the Jth column of A. For subscripts greater than 10, a DIM state- 
ment is required. 
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Problems for Sec. 1-4 

1) Write a program to read six test scores for each of five students into an 
array, one student to a row. Find the test average by student and by 
test, and print the scores and the results in easily readable form. 

2) Write a program to locate the maximum and the minimum point of 
any function in a domain specified as input. Also specify the incre- 
ments as input. 

3) Write a program to set up a tic-tac-toe board and keep track of the 
play of two external players. 

4) Write a program to fill a square array with zeros except along the 
diagonal from the upper left to the lower right corners, which should 
contain ones. Print this array (called the "identity array"). 

5) Write a program to produce the results of program C0MPAR in Sec. 
1-1 using a simple G0SUB and only one G0T0. 

6) Write a program to produce the results of program C0MPAR in Sec. 
1-1 using SGN(A - B) and the computed G0SUB. 

7) If your system allows two arguments in user defined functions, write 
a single function to allow rounding off numbers to any desired pre- 
cision. Try the same thing with a single argument function. Write 
a program to verify your functions. 

1-5 MAT Statements in BASIC 

Arrays and lists are used so routinely in programming and in mathematics 
applications that most implementations of BASIC include a group of special 
statements to handle them. Note that since BASIC treats lists as special arrays, 
we may not use the same letter for a one-dimensional list that we use for a two- 
dimensional array. Instead of reading values into the elements of an array entry 
by entry with loops, we may simply use MAT READ A or MAT READ A, 
B,C as long as the array or the arrays are dimensioned to be compatible with the 
data. BASIC also allows us to alter the dimensions of arrays in the MAT READ 
statement. MAT READ A,B(3,7),C(N,M) reads mat A according to previously 
set dimensions; dimensions B to three rows and seven columns; reads the array 
and dimensions C to N rows and M columns, N and M having been previously 
defined; and reads that array. 

MAT PRINT A prints the complete array with comma format. To get 
semicolon format, MAT PRINT A; must be used. A single statement may 
specify printing of more than one array, as in MAT PRINT A,B;C, which will 
result in A being printed with comma spacing, followed by B printed with 
semicolon spacing, followed by C printed with comma spacing (see program 
MAT01). 

MAT INPUT allows us to type entries from the keyboard of our ter- 
minal with all of the dimensioning options of MAT READ. MAT INPUT 
A has one additional option in some implementations of BASIC. If A is a 
list, you may not know the number of entries required when the program is 
written. In some systems, the function NUM takes on the number of elements 
entered in the most recent MAT INPUT statement in the program. 
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94 


REM ' 


* THIS 


PROGRAM 


DEMONSTRATES 




95 


REM 


MAT 


READ AND 


MAT PRINT 




100 


DIM / 


=U3,4> 


, BC6, 10), CC8.9) 




110 


READ 


R,C 








120 


MAT 


READ 


A, BC2, 


5), C(R,C) 




130 


MAT 


PRINT 


A, BJ C 






132 


REM 










140 


DATA 


4,3 








150 


DATA 


1,2, 


3,4,5,6, 


7,8,9, 10, 1 1, 12 




160 


DATA 


13, 14, 15, 16, 


17,18, 19,20,21,22 




17 


DATA 


23,24,25,26, 


27,28,29, 30, 31, 32, 


33, 34 


180 


END 










RUN 












MAT01 










1 






2 


3 


4 


5 






6 


7 


8 


9 






10 


1 1 


12 


1 3 


14 


15 


16 


17 




18 


19 


20 


21 


22 




23 






24 


25 




26 






27 


28 




29 






30 


31 




32 






33 


34 





Other statements that may be used to assign values to the elements of 
arrays are as follows: 



MAT A = ZER 



MAT A 
MAT A 
MAT A 
MAT A 



ZER(2,3) 
ZER (B,C) 
ZER(5) 
ZER(X) 



Fills array A with zeros according to 

previously specified dimensions. 
Redimensions A and fills it with zeros. 
Redimensions A and fills it with zeros. 
Redimensions A and fills it with zeros. 
Redimensions A and fills it with zeros. 



MAT A = C0N fills the array A with ones. As shown, the dimensions must 
have been previously determined. C0N has all of the redimensioning options 
shown for ZER. 

MAT A = IDN is used only for a square array (where the number of rows 
is equal to the number of columns). A is filled with ones where the row num- 
ber and the column number are equal and all other locations are set equal to 
zero. IDN may be redimensioned with IDN(X,X) or IDN(5,5). This is called 
the "identity matrix" in matrix algebra. 

In matrix algebra, addition and subtraction are defined for like-dimen- 
sioned arrays as the sum or difference, respectively, of elements having the same 
location. That is, if array X is the sum or difference of Y and Z, then for all 
I,J we have X(I,J) = Y(I,J) ± Z(I,J). This could be done with nested loops; 
in BASIC, however, we merely type: 
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100 


MAT X = 


Y + Z 


for addition 


100 


MAT X = 


Y - Z 


for subtraction 



Matrix multiplication has a more complicated definition. For arrays Y 
and Z, the number of columns in Y must equal the number of rows in Z. The 
(R,C)th entry of X is the sum of the products Y(R,T)*Z(T,C), where T goes 
from one to the number of columns in Y, which is also the number of rows in Z. 
The product matrix will have the same number of columns as X and the same 
number of rows as Y. A BASIC program for matrix multiplication requires 
triple nested loops. 

The following statement accomplishes the same result: 

100 MATX = Y*Z 

Note that if multiplication works for Y*Z, it will work for Z*Y only if the 
arrays are square. In any case, the product has the number of rows of the left 
multiplier and the number of columns of the right multiplier (see program 
MAT02). 

In matrix algebra, instead of dividing Y by Z, we first find the inverse of 
Z. The inverse of Z, written Z -1 , is the matrix such that Z*Z~ 1 equals the 



MAT02 



100 


DIM XC10.10). YC10.10), ZC1I 


102 




lot 


REM * READ MATRIX DIMENSIONS 


110 


READ I, J. K.L 


120 


IF J = K THEN 150 


130 


PRINT "PRODUCT UNDEFINED" 


140 


ST0P 


IAS 




144 


REM * READ MATRIX ELEMENTS 


150 


MAT READ Y(I.J). ZCK.L) 


152 





ZC10,10>, PC10.10) 



154 REM * INITIALIZE PRODUCT MATRIX 

160 MAT X = ZERCI.L) 

162 

164 REM * MULTIPLY USING NESTED LOOPS 

170 FOR T = 1 TO J 

180 FOR R = 1 TO I 

190 FOR C = 1 TO L. 

200 LET XCR.C) = X(R, C > + Y < R, T) *Z < T, C > 

210 NEXT C 

220 NEXT R 

230 NEXT T 

232 

240 PRINT "USING TRIPLE NESTED LOOPS" 

250 MAT PRINT X) 

260 PRINT 

262 

264 REM * DEMONSTRATE MAT PRODUCT IN BASIC 

270 MAT P = ZERCI.L) 

280 MAT P = Y*Z 

290 PRINT "USING MAT MULTIPLY STATEMENT" 

300 MAT PRINT PJ 

302 

304 REM 

310 DATA 2.3. 3.4 

320 DATA 1,2.3.4,5.6 

330 DATA 1,2,3.4.5.6,7,8,9,10,11,12 

340 END 
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RUN 
MAT02 



USING TRIPLE NESTED LOOPS 
38 44 50 56 



USING MAT MULTIPLY STATEMENT 
38 44 50 56 



identity matrix. Having found the inverse of Z, we multiply Y by it. The in- 
verse (if it exists) is obtained with the following statement: 

100 MATX = INV(Z) 

BASIC allows us to find the transpose of a matrix with the following 
statement: 

100 MATX = TRN(Z) 

The transpose consists of an array X such that the columns of X are the rows of 
Z and the rows of X are the columns of Z. Note that if the dimensions of Z are 
(R,C), then the dimensions of X must be (C,R). 
We can duplicate an array with 

.100 MATX = Z 

and can multiply every entry of an array by the same number with 

100 MATX = (C)*Z 

where C is any legal BASIC formula. 

In the last seven cases just presented, some systems use the statement 
itself to dimension or redimension X, whereas others require that the program 
make the dimensions of X compatible in advance. 

Summary 

BASIC provides a number of MAT statements that greatly simplify pro- 
grams which deal with arrays. They are as follows: 

MAT READ Reads data into a variable list. 

MAT INPUT Enters data from the keyboard into a variable list. 

MAT X = ZER Fills X with zeros. 

MAT X = C0N Fills X with ones. 

MAT X = IDN Creates the identity matrix. 

MAT PRINT Prints the contents of a variable list to the terminal. 

MAT X = Y Copies the contents of Y into X. 

MATX = Y + Z Enters the sum of Y and Z into X. 

MAT X = Y - Z Enters the difference of Y and Z into X. 

MAT X = Y*Z Enters the product of Y and Z into X. 

MATX = (C)*Y Multiplies each entry of Y by C and enters result in X. 
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MAT X = INV(Y) Enters the inverse of Y into X. 
MAT X = TRN(Y) Enters the transpose of Y into X. 

The first five statements above have optional redimensioning capabilities. 

Problems For 1-5 

1) Write a program to add or subtract two arrays without using matrix 
statements from this section. 

2) Write a program to enter 25 random integers into a five by five array 
and print it. Now find the largest number in each row and its column 
number, and find the largest number in each column and its row 
number. 

3) Write a program to print a times table modulo six. 

4) Write a program to print a times table modulo five. 

5) MAT READ the integers one through nine into a three by three array. 
Copy this into the upper left corner of a four by four array. Use the 
fourth row to enter the column sums, and use the fourth column to 
enter the row sums. Print the resulting array. 

6) Write a program to create the transpose of a given matrix without using 
the TRN function. 



^y ^ i y f§ ^y Q ^^ i ^ | BB&BEBtf^ n ^ffiEttBlH ^3 fl«tuii|iudy Wjijiuiiiiii^ Hywg ' 

F_ _ _. ipjr— #^ /""\CT D A OIO 
bA ! UHho Ur dAoiO 



2-1 Introduction 

None of the features to be discussed in this chapter is absolutely necessary 
to writing programs in BASIC. Other language statements may be assembled to 
achieve the same effect of each one. Some of them may not even be available on 
the computer you are using. However, if your system does provide any of the 
features presented here, you are encouraged to experiment since they save 
programming effort and storage space and make programs more readable. 

(Note about problems: The author has not attempted to contrive problems 
which would require the reader to use the various features presented in this 
chapter. Rather it is recommended that you be alert to possibilities for using 
the material of this chapter in programs you will be writing throughout the rest 
of the book.) 

2-2 TAB 

The TAB(X) function is available on many BASIC systems. TAB(X) 
placed in a PRINT statement causes the printing mechanism of the terminal to 
be located in the x th space of the current line, provided it has not already passed 
that point. Note that on most systems the leftmost space is numbered zero and 
the counting is modular, with the mod being typically 72 or 75, but sometimes 
more. Some systems are not modular but start on a new line when the TAB 
argument exceeds the system line length. An explicit number or BASIC formula 
may be entered as the argument of the TAB function. If the value of the argu- 
ment is not an integer, most systems use only the integer part. See program 
TAB01. 
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94 REM * PRINT SCALE TO AID COUNTINF SPACES 

100 FOR I = 1 TO 5 

110 FOR J = 1 TO 9 

120 PRINT "-"J 

130 NEXT J 

140 PRINT "!"; 

150 NEXT I 

160 PRINT 

162 

164 REM * PRINT IN LOCATIONS READ FROM DATA 

170 FOR K = 1 TO 5 

180 READ T 

190 PRINT TAB(T); "X"; 

200 NEXT K 

210 PRINT 

212 

214 REM * SHOW TAB MORE THAN ONCE IN 

215 REM THE SAME PRINT STATEMENT 
220 READ A, B» C 

-230 PRINT TABCA); "A"; TABCB); "B"J TABCO! 
234 REM 

240 DATA 3. 8. 12. 28. 4B 
250 DATA 2. 1, 15 
260 END 
RUN 
TAB01 



X X 

A B 



Examining the output of program TAB01 and counting the leftmost space 
as zero, we see that the X's are printed in the spaces numbered 3, 8, 12, 28, and 
48, as designated in the DATA of line 240. 

The uses of the TAB function are not limited to literal output. We may 
also format numeric output or a mixture of numeric and literal output. See 
program TAB02. 



94 REM * TAB DEMONSTRATION PRO PRAM 

100 DIM AC4) 

102 

104 REM * READ FOUR ITEM A LIST 

110 FOR I = 1 TC 4 

120 READ Atl) 

130 NEXT I 

132 

140 PRINT TABC15); "COMMA SPACING" 

150 FOR I = 1 TO 4 

160 PRINT AC I 5 , 

170 NEXT I 

180 PRINT 

182 

190 PRINT TABC10X "USING TAB FOR 10 CHARACTER PRINT ZONE 

200 FOR I = 1 TO 4 

210 PRINT TABC 10*(I-1) )) ACI); 

220 NEXT I 

230 PRINT 

232 

240 PRINT TABCfi); "SEMICCl.CN SPACING" 

250 FOR I = 1 TO 4 

260 PRINT A(I)J 

270 NEXT I 

280 PRINT 
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282 




290 rem 




300 DATA 


-3. 1 1,0,406 


310 END 




RUN 




TAS02 





COMMA SPACING 
I 1 406 

USING TAB FCR 10 CHARACTER PRINT ZONES 
I I 406 

SEMICOLON SPACING 
1 I 406 



Note that systems differ in the number of spaces generated by the comma 
and semicolon delimiters. 

2 3 Print Using 

While it is possible with the string facilities available in BASIC (see Chap- 
ter 3) to print output in any desired form, formatting can require tedious pro- 
gramming. It is for this reason that many systems provide PRINT USING and 
image statements. 

PRINT USING permits the format for printing output for the current line 
to be specified in yet another line. The specifications for printing are called the 
image. The image can be defined in an image statement, which begins with a 
colon. Very simply, a pound sip is used to specify where we want digits printed. 
For pound signs placed to the right of the decimal point, zeros to the right of 
the last nonzero digit are printed. For pound signs placed to the left of the 
decimal point, zeros to the left of the leading nonzero digit are not printed. 

One of the common uses of PRINT USING is to obtain zeros to the right 
of the decimal point in printed output, since as a numeric the trailing zero is 
dropped in BASIC. If we want $3.10 printed, we may use an image to force the 
printing of the zero, as shown in our first demonstration program, IMAGE01. 



IMAGED 1 




94 


REM * 


DEMONSTRATES ELEMENTARY 


95 


REM EXAMPLE FCR PRINT USING 


100 


LET D 


= 3. 1 


1 10 


PRINT 


"THIS IS WITHOUT IMAGE 


120 


PRINT 


"THE AMOUNT IS S"; D 


130 


PRINT 




140 


PRINT 


"THIS IS WITH IMAGE" 


ISO 


:THE AMOUNT IS S##.## 


160 


PRINT 


USING 150, D 


170 


END 




RUN 






IMAGE01 





THIS IS WITHOUT IMAGF 
THE AMOUNT IS S 3. 1 



THIS IS WITH IMAGE 
THE AMOUNT IS S 3.10 



Next we present program IMAGE02 to show a variety of numbers printed in a 
variety of images. 
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94 REM * DEMONSTRATES A VARIETY CF IMAGES 

100 : $$$##.### Xtllt.Utt tlttttlt. Iltff/ft 

102 

110 FOR I = 1 TO 5 

120 READ X 

130 PRINT "THE NUMBER IS"; X 

140 PRINT USING 100. X. X. X. X, X. X 

150 PRINT 

160 NEXT I 

162 

164 REM 

170 DATA 1. 12. 12.3. 1234.56. .01 

180 END 

RUN 

IMAGE02 

THE NUMBER IS 1 

S 1.000 1.00 1. 1 1 

THE NUMBER IS 12 

112.000 12.00 12. 12 12 

THE NUMBER IS 12.3 

S12.300 12.30 12. 12 12 

THE NUMBER IS 1234.56 
$1234.560 *1234.56 1235. 1234 *1234 

THE NUMBER IS 0.01 

S .010 .01 0. 



Note that where several dollar signs appear only one of them gets printed. 
The one that is printed is as far right as possible in a space that has a dollar sign 
in the image. When there is not room to the right of the decimal point in the 
image to print all of the digits, the excess is dropped. No rounding off is done. 
Where there is not room to the left, all digits get printed anyway, and an asterisk 
is printed to call attention to the fact that the number did not fit the image. 

The image can be a string. In this case, the line number which calls the 
image in the PRINT USING statement is replaced by the string variable that con- 
tains the image, as in program IMAGE03. 



IMAG 


E03 




94 


REM * 


DEMONSTRATES IMAGE STORED 


95 


REM IN A STRING VARIABLE 


100 


LET IS 


; = "tttltt.ttt $$$*.«*" 


1 10 


LET N 


= 23.4 


120 


PRINT 


N; " IS THE NUMBER" 


130 


PRINT 


IS! " IS THE IMAGE" 


140 


PRINT 


USING IS, N, N 


150 


END 




RUN 






1MAGE03 





23.4 IS THE NUMBER 
HUH. Its $S$*.## IS THE IMAGE 

23.40 $23.40 



We can force the computer to print numeric output using E-format. Four 
up arrows are used for this, as shown in program IMAGE04. 
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IMAGE04 




94 


REM * 


PRINTS E-FBRMAT 


100 


: ##., 


Umt 


110 


LET N 


= 24.3 


120 


PRINT 


USING 100. N 


130 


PRINT 


NJ "IS THE NUMBER' 


140 


END 




RUN 






IMAGE04 




2. 


43E+01 




24. 


■3 IS THE NUMBER 



Strings may be formatted with images also. An apostrophe must be used 
to begin the printing for a string image. Then control letters E, L, R, and C may 
be used to indicate fields of specific characteristics. Control character E calls for 
left justification and allows the string to overflow, whereas L calls for left justifi- 
cation but truncates on the right. Control character R calls for right justification 
and truncates any excess, and C calls for centering the string output and truncates 
on the right if there is an excess. The apostrophe is needed to delimit the con- 
trol characters because any other alphabetic characters will be printed just as 
they appear in the image. See program IMAGE05 for a demonstration of for- 
matting string output in the image. 



IMAGE05 



94 

95 

100 

1 10 

120 

130 

140 

150 

152 

154 

160 

170 

RUN 

IMAGE05 



REM * DEMONSTRATES PRINTING STRINGS 

REM USING AN IMAGE STRING 

LET IS = " 'LLLL "RRRRR 'CCC 

PRINT IS 

FOR I = 1 TO 5 

READ SS 

PRINT USING 
NEXT I 



SS, SS, SS, 



REM 

DATA THIS, 

END 



•LLLL 

THIS 

IS 

A 

SAM PL 
PR0GR 



•RRRRR 

THIS 

IS 

A 

SAMPLE 

PR0GRA 



SAMPLE, PROGRAM 



•ccccc 

THIS 

IS 

A 
SAMPLE 
PR0GRA 



•EE 

THIS 

IS 

A 

SAMPLE 

PROGRAM 



2-4 Logical Operations, MAX and M IN 

Truth Values 

Some BASIC implementations include a set of logical operations. Let's 
look at the already familiar IF-THEN statement. The statement IF X=l THEN 
200 transfers control to line 200 only if X=l is true. If X=l is true, BASIC 
assigns the statement X=l a value of 1 to designate 'true.' If X=l is false, then 
BASIC assigns it a value of to designate 'false.' So we could replace our pro- 
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gram statement with IF X THEN 200, and when X=l the computer goes to 200; 
otherwise control passes to the next line in sequence, provided X can be only or 1. 
We may even print the logical value of statements. If we print the value of 
N/X=INT(N/X), we should get a one when X is a factor of N and a zero when X 
is not a factor of N (see line 150 of program L0GIC1). 



L0G) 


[CI 






94 


REM * THIS PROGRAM DEMONSTRATES THE 


TRUTH VALUE 


95 


REM 0F THE STATEMENT N/X = INTCN/X) 






100 


PRINT "INPUT N"J 






1 10 


INPUT N 






1 14 


REM * PRINT HEADINGS 






120 


PRINT "X", "N/X", "INTCN/X)", "TRUTH VALUE 


OF" 


130 


PRINT TABC45);"N/X = INTCN/X)" 






140 


FOR X=l T0 N 






■ 150 


PRINT X,N/X» INTCN/X >,N/X= INTCN/X) 






160 


NEXT X 






170 


END 






RUN 








L0GIC1 






INPUT N?6 






X 
1 


N/X INTCN/X) 
6 6 




TRUTH VALUE OF 
N/X = INTCN/X) 
1 


2 


3 3 




1 


3 


2 2 




1 


4 


1.5 1 







5 


1.2 1 







6 


1 1 




1 



The fourth column prints the logical value of N/X=INT(N/X). As we ex- 
pected, that value is one whenever X is a factor of N and zero whenever X is not a 
factor of N. This gives us a novel approach for counting factors of N. See line 
140 of program L0GIC2. Where available, all of the relational operators may be 
used in a similar manner. 



94 
95 
100 
1 10 
120 
130 
-140 
150 
160 
170 
RUN 
L0GIC2 



REM * THIS PROGRAM COUNTS FACTORS OF INTEGERS 
REM USING THE TRUTH VALUE OF N/X = INTCN/X) 

PRINT "INPUT AN INTEGER") 

INPUT N 

LET T=0 

FOR X= 1 TO N 

LET T=T+CN/X=INTCN/X) ) 

NEXT X 

FACTORS" 



PRINT T; 
END 



INPUT AN INTEGER?240 
20 FACTORS 



RUN 
L0GIC2 



INPUT AN INTEGER? 1949 
2 FACTORS 
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Logical Operators 

The logical operators AND, 0R, and N0T are available on some BASIC 
systems and may be used in a wide variety of applications. One rather straight- 
forward application is an extension of IF-THEN statements. We may often com- 
bine several IF-THEN's into one statement. For example, the pair, 

100 IF X=3 THEN 200 
110 IF Y<8 THEN 200 



becomes 



Or the four statements, 



become 



100 IF X=3 OR Y<2 THEN 200 



100 IF X <> 3 THEN 130 

110 IF Y >= 2 THEN 130 

120 G0T0 510 

130 PRINT "MESSAGE" 



100 IF X=3 AND Y<2 THEN 510 
1 10 PRINT "MESSAGE" 



We can negate a statement with N0T. That is, X<>3 and N0T(X=3) are 
equivalent. (When you are unsure of the order of operations, it may be best to 
use parentheses if only to make the statement easier to read.) What about X and 
N0T X? In this case, X is either equal to zero or it isn't. So in the case IF N0T 
X THEN 200, control passes to line 200 for X=0 (because N0T equals 1) and 
passes to the next statement in sequence for all other values. 

MAX and M 'IN 

For a system which provides MAX and MIN functions, the value of A 
MAX B becomes the larger of the two numbers. The value of A MIN B becomes 
the smaller of the two numbers. If you don't have these functions, then you 
may use 

.5*(A+B- ABS(A-B)) for A MIN B and .5*(A+B+ABS(A-B)) for A MAX B 

2-5 Multiple Line Defined Function 

Some versions of BASIC provide multiple line user-defined functions that 
permit defining of functions that require two or more program statements to 
define. The first line must be DEF FN followed by the function identifying 
letter and the function argument or arguments in parentheses. The last state- 
ment must be FNEND, and in between there must be at least one assignment 
statement with FN and the same letter specified in the DEF statement on the 
left of the equals sign. 

For example, we may write a multiple line function that will do modular 
multiplication. The function of lines 100 through 160 in program FUNCTI0N 
does just that. 

As with other user defined functions, the multiple line function may be 
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accessed at any point of the program. In this way we may often save program 
space just as G0SUB is often used to avoid repeating a set of program state- 
ments. However, the defined function is accessed directly whenever its name is 
used and thus it does not require a special statement to transfer control to it. 
The defined function may be used in all situations where a single value is re- 
quired for each parameter or set of parameters, whereas a subroutine is more 
appropriate if two or more variables must be returned. 



REM * THIS PROGRAM DEMONSTRATES A USE OF THE 
REM MULTIPLE LINE USER DEFINED FUNCTION 

REM * THE FUNCTION IS DEFINED IN LINES 100 THROUGH 160 

3 DEF FNMCX.Y.Z) 

LET P = X*Y 

3 IF P < Z THEN 150 

LET P = P-Z 

GOTO 120 

150 LET FNM = P 

L 160 FNEND 
192 

200 PRINT "MULTIPLY A TIMES B MOD M TC GET 

210 READ A, S. M 
PPO IF M = THEN 260 

230 PRINT TABC8); A; TA9CI6>; BJ TABC22)! MJ TAB<27>! FNMCA, 

240 GOTO 210 
242 

244 REM 

250 DATA 1,2,3, 3,2, A, 3,3,4, 0,0,0 

260 END 
RUN 
FUNCTION 

MULTIPLY A TIMES B MOD M TO GET 

I 2 3 2 

3 2 4 2 

3 3 4 1 



STRINGS 



3-1 Introduction 

A string is simply any set of characters that is not to be treated as a number 
but is to be otherwise manipulated by the computer. The characters are referred 
to as alphameric or alphanumeric, since both alphabetic and numeric symbols 
may be used, as are most other symbols permitted by your terminal, even includ- 
ing the nonprinting characters. It is the purpose of this chapter to outline a few 
of the possible uses of strings and string variables in BASIC even though the 
specifications are not uniform from system to system. The user should deter- 
mine the capabilities of his or her own system before planning extensive pro- 
gramming activity. 

3-2 The String Simple Variable 

To distinguish the string variable from the numeric variable, virtually all 
systems use a trailing dollar sign ($) in the variable name for a string. Legal sim- 
ple string variable names are A$, K$, B3$, and C8$. Some systems are restricted 
to the 26 letters of the alphabet, not permitting such variables as B3$. Others 
allow additional variables such as &$. The number of characters you are allowed 
to store in one simple string varies typically from 18 to thousands. Most of the 
manipulations allowed for numeric variables are allowed for string variables ex- 
cept for arithmetic operations. String variables can be READ, INPUT, assigned, 
printed, and compared for order. Order comparison is accomplished according 
to ASCII (American Standard Code for Information Interchange) specifications, 
which place the digits in order through 9 ahead of the letters of the alphabet 
in alphabetical order. (See Appendix A for relevant parts of the code.) 

One of the uses of strings is to permit person-computer "conversation." 
We do not need to numerically code our answers to questions put to the pro- 
gram user. If we wish to give the program operator options, the answers can be 
words which the computer processes directly. If for example, we write a pro- 
gram that will require a lot of yes-no answers from the keyboard, we may write 
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a subroutine that prints the question, checks the answer to be sure that it is 
either a "YES" or a "N0," and rerequests the answer for all other responses. 

Program DECIDE uses such a subroutine repeatedly as the computer as- 
sembles the information fed into it by the user. The subroutine outlined above 
begins in line 800. 



DECIDE 

94 REM * DEMONSTRATION PROGRAM INTRODUCING- STRINGS 

95 REM SHOWS ASSIGNMENT. INPUT, COMPARISON AND 

96 REM PRINTING CE STRINGS 
100 GO SUB 200 

1 10 LET XS = OS 

120 GO SUB 400 

130 LET Y$ = OS 

140 PRINT "PROGRAM NAME"! 

150 INPUT NS 

160 PRINT 

-170 PRINT XS; YS! " - "J NS 

180 STOP 

192 

194 REM * LANGUAGE DECISION SUBROUTINE 

200 LET OS = "FORTRAN" 

210 GO SUB 800 

220 IF AS = "YES" THEN 310 

230 LET QS = "COBOL" 

240 GO SUB 800 

250 IF AS = "YES" THEN 310 

260 LET QS = "BASIC" 

270 GO SUB 800 

280 IF AS = "YES" THEN 310 

290 PRINT "FORTRAN. COBOL OR BASIC ONLY" 

300 GOTO 200 

310 RETURN 

392 

394 REM * MAKE 'OLD - NEW DECISION HERE 

400 LET QS = " OLD" 

410 GO SUB 800 

420 IF AS = "YES" THEN 480 

430 LET Q$ = " NEW" 

440 GO SUB 800 

450 IF AS = "YES" THEN 480 

460 PRINT "OLD OR NEW ONLY" 

470 GOTO 400 

480 RETURN 

782 

784 REM * YES-NO DECISION SUBROUTINE 

785 REM ENTER WITH GOSUB 800 
790 PRINT "YES OR NO" 

•800 PRINT QSJ 

810 INPUT AS 

820 IF AS = "YES" THEN 850 
830 IF AS = "NO" THEN 850 

840 GOTO 790 

850 RETURN 

999 END 
RUN 
DECIDE 

FORTRAN7N0 

COBOL7N0 

BASIC?YES 

0LD7YES 
PROGRAM NAME7DECIDE 

BASIC OLD - DECIDE 
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Strings are read from data in exactly the same manner that numerics are 
read from data. String and numeric data may be intermixed. Some systems re- 
quire that string data be enclosed in quotes. On systems that do not require 
quotes, any expression that contains a comma will have to be enclosed in quotes 
anyway, since the comma will otherwise be interpreted as the end of the string. 

Look at line 170 of program DECIDE. Note that the string variables are 
separated by semicolon delimiters in that PRINT statement. You should see 
that the printed output has no spaces other than those actually placed in string 
Y$ and the literal expression " - " by the program itself. When printing numeric 
values, the computer always provides some space automatically when using semi- 
colons as delimiters. When printing strings, the computer does not provide any 
space automatically. We can print string characters right next to each other by 
using semicolons. We can print strings in 15-character columns using commas, or 
we can use the TAB function for other spacing. Some systems also provide 
PRINT USING for yet another formatting capability. 

We can easily construct a program to do for two strings exactly what pro- 
gram C0MPAR in Sec. 1-2 did for two numerics, as shown in program C0MPR$. 
All we want is to determine if A$ is less than, greater than, or equal to B$. Look 
carefully to see what happens to the leading and trailing blanks in the strings. In 
this case, the leading blank makes " ALPHA" less than "ALPHA", but the trail- 
ing blank in "BETA " has no effect. Some systems will not ignore trailing 
blanks. Also note that the string 0123456789 is placed in quotes. When calling 
for a string read, some computers will ignore such a string unless it is in quotes 
because it 'looks like' a numeric. 



COMP 


RS 






94 


REM * 


THIS 


PROGRAM COMPARES TWO 


95 


REM 


STRINGS FOR ORDER 


100 


READ 


AS, BI 




1 10 


IF 


AS = 


"STOP" THEN 260 


120 


IF 


AS = 


BS THEN 160 


130 


IF 


AS < 


B$ THEN 1RO 


140 


PRINT 


AS; 


" IS GREATER THAN "J 


150 


G0T0 


100 




160 


PRINT 


AS) 


" IS rgiiAL TO "; BS 


170 


GOTO 


100 




1FS0 


PRINT 


AS; 


" IS LESS THAN "J BS 


190 


GCTC 


100 




198 








194 


REM 






200 


DATA 


NUMERIC. ALPHABETIC 


910 


DATA 


"0123456789", ABCDEFGHIJK 


220 


DATA 


" ALPHA", "ALPHA" 


230 


DATA 


"BETA 


, ", "BETA" 


240 


DATA 


END, 


END 


250 


DATA 


STOP, 


STOP 


26 


END 






RUN 








CGMPRS 







NUMERIC IS GREATER THAN ALPHABETIC 
0123456789 IS LESS THAN ABCDEFGHIJK 

- ALPHA IS LESS THAN ALPHA 

-BETA IS EQUAL TO BETA 
END IS EQUAL TO END 
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Summary of Sec. 3-2 

We have seen that the simple string variable can be used in BASIC programs 
in many of the same ways that simple numeric variables can. We may use simple 
string variables in READ, DATA, INPUT, PRINT, and IF-THEN statements. In 
DATA and INPUT statements, some systems require quotes to delimit strings 
under certain conditions. 

Problems for Sec. 3-2 

1) Write a program to find the highest and lowest ranking strings in a set 
of data. 

2) Write a program that reads two strings and then prints them in ascend- 
ing order. 

3) Write a program that will read three strings from data and print them in 
ascending order (more on ordering strings later). 

4) How many print statements would be required to print n strings in 
alphabetical order using only the methods of this section? 

5) Write a program to request two peoples' names in two strings for each 
person, first name first. Then have the names printed in alphabetical 
order. Be sure to handle William Smith and George Smith properly. 

3-3 The String Subscripted Variable 

It is at this point that we must distinguish the ways in which various systems 
treat subscripted string variables. There are two fundamentally distinct ways to 
deal with A$(I,J) and B$(I). (Some systems don't even permit the double sub- 
script.) 

One concept, as shown in demonstration program ARRAY$, considers 
A$(I,J) as an element of a string array just as A(I,J) is an element of a numeric 



94 REM * THIS PROGRAM IS A DEMONSTRATION OF 

95 REM A STRING ARRAY 
96 

97 REM * HERE THE DIMENSION SPECIFIES THE NUMBER 

98 REM OF STRINGS THAT MAY BE STORED IN A LIST 
100 DIM ASC3) 

102 

104 REM * READ THE STRING LIST FROM DATA 

110 FOR I = 1 TO 3 

ISO READ ASCI) 

130 NEXT I 

132 

134 REM * NOV PRINT THE STRING LIST 

140 FOR I = 1 TO 3 

150 PRINT "ASC"; I; ••) = "j ASCII 

160 NEXT I 

172 

174 REM 

180 DATA FIRST, SECOND, THIRD 

190 END 

RUN 

ARRAYS 

ASC 1 ) = FIRST 

ASC 2 > = SECOND 

ASC 3 > = THIRD 
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array. This makes B$(I) the Ith element of a string list called B$ which may con- 
tain up to 11 strings before the DIMension statement is required. 

The other concept, as shown in program SUBSTR, considers A$(I,J) as a 
substring having J-I+l characters going from the Ith to the Jth character inclu- 
sive. So A$(I,I) is the single Ith character. Using this concept, B$(I) is the sub- 
string beginning with the Ith character and continuing to the end of the string. 

The next two sections will treat these two concepts separately. 



94 REM * THIS PROGRAM IS A DEMONSTRATION 

95 REM CF AS (I, J) AS A SUBSTRING 

96 REM 

97 REM * IN THIS CASE THE DIMENSION SPECIFIES THE 

98 REM NUMBER 0" CHARACTERS IN THE STRING VARIABLE AS 
100 DIM ASC 14] 

110 LET AS="THIS IS A TEST" 

120 PRINT "AS = ";AS 

130 FOR 1=1 TO 14 STEP 4 

140 LET J=I+INTCRND<-1 )*4+ 1 ) 

150 PRINT "ASC"; I;","; J; ") = "';AStI,J]; 

160 NEXT I 

164 REM 

170 END 
RUN 
SUBSTR 



AS = THIS 


IS A 


TEST 




ASC 1 , 


4 


) = 


'THIS 


ASC 5 , 


6 


) = 


1 I ' 


ASC 9 , 


ia 


) = 


'A TE 


AS C 1 3 


17 


) = 


■ST 



3-4 The Substring Scheme* 

One advantage in the substring concept is that we can deal with any part or 
parts of the string directly. One disadvantage is that we cannot deal with 
hundreds or thousands of strings without the use of files. Strings may be read 
from data. When placed in data, strings must be enclosed in quotes. The same is 
true if we type more than one string to the keyboard in response to an INPUT 
statement. 

Generally speaking, the DIMension statement is required for string variables 
to permit the computer to allocate space. For example, 100 DIM A$(10), 
B$(58),A(15) provides for 10 characters in AS, 58 characters in B$, and 15 
numerics in the A list, the latter showing that string and numeric dimensioning 
may be intermixed. 

A program to arrange the letters of a string in alphabetical order is shown 
in program ALPHA. Line 100 provides for up to 72 characters in the string vari- 
able AS. Line 120 uses the LEN( ) function. This function measures the actual 
number of characters in the string. Note that lines 160, 170, and 180 exchange 
two characters which are not in the proper order. Since B$ is used for only a 
single character, it need not appear in the DIMension statement. Note that 
spaces have a lower ASCII code than the letter A and so appear first in the result 
of program ALPHA. 

*The programs of Sec. 3-4 were run on a Hewlett Packard Computer. 
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ALPHA 

94 REM * THIS PROGRAM ALPHABETIZES THE 

95 REM CHARACTERS OF A STRING 

- IOO DIM ASC72] 
110 INPUT AS 

- 120 LET L=LENCAS) 
122 REM 

124 REM * LINE 150 TESTS ALL POSSIBLE PAIRS CF 

125 REM CHARACTERS TO SEE IF THEY ARE IN ORDER 
130 FOR 1= 1 TO L-l 

140 FOR J=I+1 TO L 

150 IF ASCI.II <= ASCJ.J3 THEN 190 

152 REM 

154 REM * IF ASCI, I) IS NOT LESS THAN ASCJ^J) THEN 

155 REM WE EXCHANGE THOSE CHARACTERS 
-160 LET BS=ASt I. I] 

-170 LET ASC I, n = ASC J, J] 

-180 LET AS[J,J] = BS ,' 

190 NEXT J 

200 NEXT i 

204 REM 

210 PRINT AS 

220 END 

RUN 

ALPHA 

?THE QUICK BROUN FOX JUMPS OVER THE LAZY DOG 
ABCDEEEFGHHIJKLMNOOOOPORRSTTUUVWXYZ 



Program REVRS simply prints the characters of a string in reverse order 
but keeps the string intact. Program END shows the printing of A$(I) for a 
sample string. 



REVRS 

94 REM * THIS PROGRAM DEMONSTRATES PRINTING THE 

95 REM CHARACTERS OF A STRING IN REVERSE ORDER 

96 REM WITHOUT MODIFYING THE CONTENTS OF 

97 REM THE STRING 
100 DIM ASC72] 

110 INPUT AS 

120 PRINT 

130 PRINT " THE STRING CONTENTS IN REVERSE ORDER: 

134 REM 

1-40 FOR I=LENCAS) TO 1 STEP -1 

150 PRINT ASC I.I1I 

160 NEXT I 

164 REM 

170 PRINT 

180 PRINT 

190 PRINT " THE CONTENTS PRINTED IN TACT:" 

200 PRINT AS 

210 END 

RUN 

REVRS 

7THIS PROGRAM PRINTS IN REVERSE 

THE STRING CONTENTS IN REVERSE ORDER: 
ESREVER NI STNIRP MASGORP SIHT 

THE CONTENTS PRINTED IN TACT: 
THIS PROGRAM PRINTS IN REVERSE 
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END 

94 

95 

100 

110 

120 

130 

140 

142 

ISO 

RUN 

END 



REM * THIS PROGRAM DEMONSTRATES THE USE OF 
REM PRINT ASCI) IN THE SUBSTRING SCHEME 

DIM ASC723 

INPUT AS 

FOR I=LENCA$) TO 1 STEP -1 

PRINT "ASCII;") = "JASCII 

NEXT I 

REM 

END 



ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 



10 

9 

8 

7 

6 

S 

4 

3 

2 

1 



T 
IT 

IT 
S IT 
IS IT 

IS IT 
S IS IT 
IS IS IT 
HIS IS IT 
THIS IS IT 



The ability to compare strings and substrings allows us to pack several 
items of information into a single string. For example, we might want to work 
with the days of the week. As shown in program WEEKA, we could use 

110 LETA$ = "SUNM0NTUEWEDTHUFRISAT" 



WEEK 


A 


94 


REM * THIS PROGRAM DEMONSTRATES COMPARING A 


95 


REM STRING AGAINST A SUBSTRING 


100 


DIM DSC 15], ASC2I I 


1 10 


LET AS="SUNMONTUEWEDTHUFRISAT" 


120 


INPUT DS 


130 


LET D=0 


140 


FOR 1=1 TO 19 STEP 3 


150 


LET D=D+1 


160 


IF DS <> ASCI.I+2I THEN 190 


170 


PRINT "DAY #"D 


180 


STOP 


190 


NEXT I 


194 


REM 


200 


PRINT "DAY NOT FOUND" 


210 


END 


RUN 




WEEKA 


?TUE 




DAY 


H 3 



Then we could step through the string with 

140 F0R I = 1 T0 19 STEP 3 

comparing some test string with A$(I,I+2) to see if the test string matches those 
three characters of A$. 
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We can even test parts of two strings. We could test the first three charac- 
ters of D$ successively against groups of three characters in A$ looking for a 
match by changing line 160 to 

160 IF D$(l,3) <> A$(I,I+2) THEN 190 

This is left for the reader to try. 

It should be clear that by the use of strings we can control what is printed 
in every space of the paper on our terminal. If we convert numeric values to 
string variables, then we gain some added flexibility for the printing of numeric 
results since these can be printed imbedded in strings to avoid extra spaces. If 
you have PRINT USING, this step is not necessary. 

We shall develop here the beginnings of a routine to convert a numeric to 
a string. The fundamental idea is simply to pick off the digits one at a time as 
numbers and use the numbers to store string equivalents in the correct positions 
of a string variable. The way to get the string equivalent is to use what is called 
a dummy string. In this case the dummy string to use contains all the digits. 
As shown in program C0NVRT, it is D$="0123456789". The string A$ in pro- 
gram WEEKA is another example of a dummy string. If we want a "3" stored 
in the sixth position of string S$, we use the following statement: 

100 LETS$(6,6) = D$(4,4) 

since the "3" is really in the fourth position of D$. To get the digit "I" in the 
Jth position of S$, we use: 

200 LETS$(J,J) = D$(I+1,I+1) 

as shown in line 200 of program C0NVRT. 



CCNVRT 




94 


REM * THIS PROGRAM CONVERTS A NUMERIC 


95 


REM TO A STRING 




100 


DIM SStfil.DSC 10] 




1 10 


LET DS="01S34567R9" 




ISO 


INPUT N 




130 


IF N=1NTCN> THEN 160 




M0 


PRniT "INTEGERS ONLY" 




150 


GOTO ISO 




160 


PRINT "*";N;"*" 




170 


FOR E=5 TO STEP - 1 




180 


LET J=6-E 




190 


LET I=INTCN/ lQtE) 




200 


LET SS[.J, J] = DJC 1 + 1, 1+1 3 




S10 


LET N=N-I*10>E 




380 


NEXT E 




330 


PRINT "S"; ss;"S" 




240 


END 




RUN 






C0NVRT 




7 975310 




* 975310. * 




S975310S 





To append a string onto the end of another string, use the technique of 
program C0NCAT. 
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CON CAT 

94 REM * THIS PROGRAM DEMONSTRATES CONCATENATION 

100 DIM ASC50J.BSC50] 

I 10 INPUT AS,B$ 

120 PRINT "BEFORE CONCATENATION". 

130 PRINT AS.BS 

MO LET AS[LEN<A$)+n = BS 

150 PRINT 

160 PRINT "AFTER CONCATENATION", 

170 PRINT AS.BS 

180 END 

RUN 

CONCAT 

?"C0NCAT"."ENATI0N" 

BEFORE CONCATENATION CONCAT ENATION 

AFTER CONCATENATION CONCATENATION ENATION 

Summary of Sec. 3-4 

The substring scheme permits us to look at string variables in one of the 
following four ways: 

A$ The whole string. 

A$(I,J) The substring from the Ith to the Jth characters inclusive. 

A$(I,I) The single Ith character of the string A$. 

A$(I) The substring beginning at the Ith character and continu- 

ing to the end. To obtain the beginning of the string, use 
A$(1,I). 

We can build up new strings from parts of old ones. We can compare 
strings and substrings for equality and for order. 

Problems for Sec. 3-4 

1) Modify ALPHA to eliminate duplicates. 

2) Write a program to accept abbreviations for the days of the week and 
respond with the full correct spelling. 

3) As written, C0NVRT will print $000001$ if we input 1 for N. Elimi- 
nate these leading zeros and end up with a string only as long as needed. 

4) Modify C0NVRT to accept negative numbers and insert the minus sign 
in the string. 

5) Modify C0NVRT to accept decimal numbers representing dollars and 
cents. 

6) Write a program to convert a numeric string to a true numeric stored in 
a numeric variable. 

7) Write a program to multiply two six-digit integers and print the answer 
exactly. 

8) Write a program like that for problem 7, but not limited to six-digit 
integers. (Allow 10- or 20-digit integers). 

9) Write a program to encode and decode messages using a keyword. 

10) Modify program WEEKA to test the first three characters of the input 
string from line 120 against successive sets of three characters from A$. 

11) In comparing strings for order, BASIC compares the two strings one 
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character at a time. So for nonequal strings, the first nonequal charac- 
ters determine order. Therefore when comparing such strings as '60' 
and '100', BASIC will evaluate '60' as greater than '100'. Write a pro- 
gram to overcome this flaw. Be sure to also provide for proper order- 
ing of strings like 'A6' and 'A10.' 

3-5 The String Array Scheme* 

Even where systems use the same general scheme, we will find differences. 
Therefore we present programs here which use features found on many time- 
sharing systems. Strings and string arrays may be manipulated in many of the 
same ways that numerics and numeric arrays may be. That is, we may use 
INPUT, READ, PRINT, assignment, and comparison for order. We generally 
may not use arithmetic operations with the possible exception of addition since 
some computers allow LET A$ = "ABC" + "DEF" to assign "ABCDEF" to 
string variable A$. Generally speaking, we find the same dimensioning require- 
ments for string arrays as for numeric arrays. So 10 DIM A$(15),B$(3,47), 
C(3,8) provides for up to 16 strings in A$ (generally zero subscripts are allowed), 
up to 192 strings in B$, and up to 36 numerics in C. Note that we may intermix 
strings and numerics in the dimension statement. Some systems allow only one- 
dimensional string arrays. The number of characters allowed in each string will 
vary from system to system. The LEN( ) function, if available; evaluates the 
number of characters actually stored in a string. An alternative approach uses 
the CHANGE statement. CHANGE A$ T0 A places the ASCII numeric code for 
the characters in the string in the list positions of A. So if A$ = "XYZ," then 
list A carries in position 1 the ASCII code for X, in position 2 the code for Y, 
and in position 3 the code for Z. Moreover, A(0) will contain the number of 
characters in the string A$. CHANGE also works in the other direction. Change 
A T0 A$ takes the codes stored in list A and enters the equivalent string charac- 
ter in A$. With this information, we can write some sample programs. 

To arrange the letters of a string in alphabetical order we may first store 
the coded values in a list. We then arrange the coded values in numeric order 
and convert the numeric list back to a string for printing, as shown in program 
ALPHA1. 

Similarly, we can reverse the order of the letters in a string with the proce- 
dure of program REVRS1. Look particularly at line 150 to see that the B list is 
filled in the reverse order from the contents of the A list. 

We can compare strings as a means of coding information. For instance, 
we can number the days of the week by storing their names as the elements of a 
list— the first day stored in the first element, the second day in the second 
element, and so on. We then know which number belongs to a particular string 
by which subscript we use to obtain a match, as shown in program WEEKA1. 

We c?.n com^sre *?srts of strings b v ^ro^er use of the CHANGE p *"°*"smo n *' 
and a list for each string being compared. Program WEEKB1 looks at only the 
first three letters of two strings in lines 190, 200, and 210. 

*The programs of Sec. 3-5 were run on the General Electric Information 
Services time sharing system. 



Strings 41 

ALPHA 1 



94 


REM * THIS PROGRAM ORDERS THE CHARACTERS 


95 


REM OF A STRING 


100 


DIM AC75) 


! 10 


INPUT AS 


120 


CHANGE AS TO A 


122 




130 


LET L = ACO) 


140 


FOR I = 1 TO L-l 


ISO 


FOR J = 1+1 TO L 


160 


IF Ad) <= ACJ) THEN 200 


162 




164 


REM * IF OUT OF CRDFR THEN EXCHANGE 


170 


LET X = AC I) 


180 


LET ACI ) = ACJ) 


190 


LET ACJ) = X 


200 


NEXT J 


210 


NEXT I 


212 




220 


CHANGE A TC AS 


230 


PRINT AS 


240 


END 


RUN 




ALPHA1 



THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS 
ABCDDEEEEFGHHIJKLMNCOCCPORRSTTUUVWXYZ 



REVRS1 




94 


REM * THIS PROGRAM REVERSES THE 




95 


REM CHARACTERS OF A STRING 




100 


DIM A C 7 5 > , B C 7 5 ) 




1 10 


INPUT AS 




120 


CHANGE AS TO A 




122 






124 


REM * STORE THE NUMBER OF CHARACTERS I 


N L AND BCO) 


130 


LET L = BCO) = ACO) 




140 


FOR I = 1 TO L 




150 


LET BCL-I+1) = ACI) 




160 


NEXT I 




162 






170 


CHANGE B TC AS 




1R0 


PRINT AS 




190 


EN D 




RUN 






REVRS1 





? GOOD THINGS COME IN SMALL PACKAGES 
SEGAKCAP LLAMS NI EMOC SGN I HT DCCG 



94 REM * THIS PROGRAM FINDS THE DAY NUMBER 

95 REM FHCM THE DAY NAME 
100 DIM ASC7) 

110 FO R D = 1 TC 7 

120 READ ASCD) 

130 NEXT D 

140 PRINT "DAY"; 

150 INPUT BS 

160 FOR D = 1 TC 7 

170 IE RS <> ASCD) THEN 200 

180 PRINT "DAY It "; D 

190 STOP 

200 NEXT D 

210 PRINT BS; "NOT FOUND" 
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212 

214 REM 

220 DATA SUNDAY. MONDAY. TUESDAY. WEDNESDAY 

230 DATA THURSDAY, FRIDAY. SATURDAY 

240 END 

RUN 

WEEKA1 

DAY? TUESDAY 
DAY # 3 



WEEKB1 

94 REM * THIS PROGRAM DIFFERS FROM 'FEKA1 BECAUSE 

95 REM IT CHECKS ONLY THE FIRST THREE CHARACTERS 

96 REM OF TWO STRINGS. SEE LIMES 190 TO 210 
100 DIM A5C7),A(9>,RC95 

102 

104 REM * READ DAYS OF THE WFEK INTO AS LIST 

110 FOR D = 1 TO 7 

120 READ ASCD) 

130 NEXT D 

132 
-140 PRINT "DAY"; 

150 INPUT BS 

160 CHANGE BS TO B 

170 FOR I = 1 TO 7 

1B0 CHANGE ASCI) TO A 

182 

184 REM * TEST FIRST THR^F CHARACTERS 

-190 FOR K = 1 TO 3 

-200 IE ACK) <> BCK) THEN 240 

■210 NEXT K 

220 PRINT ASCI)! " IS DAY *"; I 

230 STOP 

240 NEXT I 

250 PRINT 3SJ " NOT FOUND" 

252 

254 REM 

260 DATA SUNDAY, MONDAY, TUFSDAY, WEDNESDAY 

270 DATA THURSDAY. FRIDAY. SATURDAY 

2B0 END 

RUN 

WEEKS 1 

DAY? SUNDAE 
SUNDAY IS DAY If 1 



We can easily construct a program to alphabetize strings by using exactly 
the same approach that we use for sorting numbers except that we use sub- 
scripted string arrays instead of subscripted numeric arrays, as shown in program 
0RDER$. (For more about sorting see Sec. 11-3). Note that this program stops 
comparing as soon as the list is in order, an optimizing feature which obviously 
leads to shorter execution time. 



94 REM * THIS PROGRAM ALPHABETIZES 

95 REM A LIST OF STRINGS 

96 REM THE CURRENT LIMIT IS 200 STRINGS 
100 DIM LSC200) 

102 

104 REM * READ DATA 
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1 10 


FOR I = 1 TO 200 


120 


READ LS( I ) 


130 


IF LS( I ) = "STOP" THEN 150 


MO 


NEXT I 


142 




150 


LET M = I = 1-1 


152 




154 


REM * PIRN SWITCH OFF, INCREMENT N AND SORT 


160 


LET S = 


170 


LET N = N - 1 


IRO 


FOR J = 1 TO N 


190 


IF LSCJ) <= LSCJ+1) THEN 240 


192 




19 4 


RFM * EXCHANGE ELEMENTS AND TURN ON S'-'ITCH 


200 


LFT SS = LSCJ) 


210 


LET LSCJ) = LSCJ+ 1 > 


220 


LET LIC 1+1 ) = SS 


230 


LET S = 1 


240 


NEXT J 


242 




244 


REM * CHECK SWITCH 0=OFF, 1=GN 


250 


IF S = 1 THEN 160 


252 




254 


REM * THE SWITCH IS OFF - LIST IS CRDERFD 


260 


FCR X = 1 TC I 


27 


PRINT LSCX) 


280 


NEXT X 


282 




284 


REM 


290 


DATA WILLIAMS, JCNES, SMITH 


300 


DATA YOUNGMAN, STOP 


310 


END 


RUN 




ORDERS 


JONES 


SMITH 


WILLIAMS 


Y0UNGMAN 



Since strings in the scheme we are now considering may be treated as array 
variables, we should realize that we may MAT READ and MAT PRINT string 
arrays with all of the same options that these two statements allow for numerics. 
That is, we may MAT READ A$(M,N) to redimension the array in the MAT 
READ statement. And we may MAT PRINT with semicolon or comma spacing. 
Use semicolon spacing with care, however, as this will result in strings being 
printed with no spaces. For most systems, quotes are not required when placing 
strings in DATA statements unless the string contains a comma or is a numeral. 



DEMONSTRATES MAT READ 
FCR STRING ARRAYS 



94 


REM * THIS PROGRAM 


95 


REM AND MAT PRINT 


100 


DIM ASC5, 10) 


1 10 


READ R,C 


120 


MAT READ ASCR,C) 


130 


MAT PRINT AS; 


140 


PRINT 


150 


MAT PRINT AS, 


152 




154 


REM 


160 


DATA 2,5 


170 


DATA THIS, IS, A, 


180 


DATA WITH, STRING, 


190 


END 



SAMPLE, PROGRAM- 
MAT READ, AND, MAT PRINT 
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RUN 
MATS 



THISISASAMPLFPHOf-RAM 
WITHSTRINGMAT READANDMAT P^INT 



THIS IS A SAMPLE PROGRAM 

WITH STRING MAT READ AMD MAT PRINT 



Generally speaking, you need not be intimately familiar with the ASCII 
code because the ASC( ) function gives the numeric code for the character in 
parentheses. Alternatively, we may write a program to print the ASCII code for 
alphanumeric characters stored in a string variable, as shown in program ASC. 
Note that lines 130, 150, and 160 are used to store single characters from A$ in 
the string variable B$. Some time sharing systems provide the EXT$ function. 
The statement B$ = EXT$(A$,I,I) would result in the Ith character of A$ being 
stored in B$. Some systems use SEG$ for this. You may find numerous other 
functions for working with string data available in your system. 



94 


REM * THIS PROGRAM PRINTS SAMPL] 


95 


REM ASCII CODE VALUES 


100 


DIM A(9) 


1 10 


LET AS = "6 :/(CABZ" 


120 


CHANGE AS TO A 


130 


LET BC0) = 1 


140 


FOR X = 1 TO A(0) 


150 


LET B(l> = ACX> 


160 


CHANGE B TO BS 


170 


PRINT ; 8$; ; BCD 


180 


NEXT X 


190 


END 


RUN 




ASC 




■6' 


54 


* ' 


32 


' : ' 


58 


•/' 


47 


• t • 


40 


•c • 


91 


•A 1 


65 


•B' 


66 



Summary of Sec. 3-5 

row I, column J of a string array. We may consider individual characters of the 
string by using CHANGE, which places equivalent numeric codes for the charac- 
ters of the string in the positions of a numeric list corresponding to the position 
of the character in the string. In addition, the zero position of the list contains 
the number of characters in the string. 
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Problems for Sec. 3-5 



1) Modify program ALPHA1 to eliminate duplications. 

2) Suppose you have typed a large quantity of data consisting of peoples 
names, first name first, and you suddenly find that you should have 
typed them last name first and in alphabetical order. Write a program 
to make the change. Your program should work whether or not you 
used middle initials. 

3) Write a program to convert a string to a numeric (even though your 
computer may provide a function for this). 

4) Write a program to accept two six-digit integers, multiply them digit 
by digit, and print the exact product. 

5) Write a program to accept two numbers as strings not limited to six 
digits, find the exact product, and print it. 

6) Write a program to generate license plate number and letter combina- 
tions. Establish a pattern, such as six characters with the first three 
alphabetic and the last three numeric. Select a few at random to print. 

7) Write a program to generate 'words' where vowels and consonants 
alternate. Print a few at random. 

8) In comparing strings for order, BASIC compares the two strings one 
character at a time. So for nonequal strings, the first nonequal charac- 
ters determine order. Therefore, when comparing such strings as '60' 
and '100,' BASIC will evaluate '60' as greater then '100.' Write a pro- 
gram to overcome this flaw. Be sure to also provide for proper order- 
ing of strings like 'A6' and 'A10.' 



4-1 Introduction 

There are tremendous differences in file handling from system to system. 
Files give a tremendous extension of power to the BASIC language in two sig- 
nificant ways. First, the use of files allows us to handle far more data than we 
could ever store in DATA statements of a single program because of computer 
space limitations. Second, the use of files allows us to process the same data 
using several different programs. We might use one program only to enter data 
into a file. Another program might be used to make corrections. Another might 
be used to extract a particular piece of information, and yet another might be 
used to modify the data in the files. And so on and so on. There is no limit to 
the number of programs which may work on the data in a single file or group of 
files. 

We have chosen to present here file programs on two different systems. 
You will want to determine which one resembles your system before attempting 
to write programs. The systems chosen here are Hewlett Packard and General 
Electric since both are in common use and differ in many ways. 

4-2 Hewlett Packard Files 
Serial Data Files 

Serial files have the advantage that they are quite efficient in the use of 
computer storage space. We simply print entry after entry until all desired 
entries are in the file or files. Serial files have the disadvantage that we cannot 
easily go into the file to change an existing entry or insert a new entry. To do 
this to a serial file, we must copy the entire contents into another file making 
the changes on the way and then copy the corrected data back into the original 
file. Naturally, this is a serious problem only if we are working with a large 
amount of data. 

Let us construct an inventory file and work on it. Suppose that for each 
item of inventory we have a part name, a part number, a price, and a quantity. 

46 
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Program ENTER1 will enter an initial set of inventory data into a file called 
INVOl. 



ENTER! 

94 REM * THIS PROGRAM ENTERS DATA IN AN EMPTY FILE 

100 FILES INVOl 

1 10 DIM PSI251 

120 READ P5,N,P,0 

130 IF N=0 THEN 240 

134 REM * LINE 140 PRINTS ITEM AFTER ITEM CLOSE PACKED 

135 RFM IN THE FILE MAKING IT SERIAL IN STRUCTURE 
140 PRINT *l!PS,N.P.O 

150 GOTO 120 

194 REM 

200 DATA "FRAM IS". 1001, =. 3, 18 00, "WIDGET". 1002,4.4, 1 100 

210 DATA "REGULATOR", 100 3, 3. 4 8, 9 00. " SL I CNEP", I 04, . 04, 9 000 

22 DATA "FRASMALATOR", 1005, IS. 49, 300, HATS I T", 1 00<S , 1 . 98, 

= 30 DATA "STOP", 0,0,0 

240 END 
R'lN 
ENTER 1 



Line 100 is necessary to make file INVOl available to the present program. 
The file must be in existence at the time the program is run. (Some HP systems 
provide for ASSIGNing files during program execution.) In this case, we typed 
the executive command 0PEN-INVO1,5O to create the file. That command 
specified 50 discrete storage blocks referred to as "sectors" or "records." Each 
of our 50 records will hold as many as 32 numerics, where one numeric occu- 
pies the same space as 4 string characters. We must add one string character each 
for delimiters at the beginning and end of a string and add one if the number of 
characters in the string is odd. The record size varies from computer to com- 
puter, and some computers allow the user to specify its length. The maximum 
number of records allowed varies also. 

Line 120 reads from program data statements in the usual way. 

Line 130 checks for dummy data. 

Line 140 prints the data as read in line 120 but to the external file instead 
of to the paper on the terminal in front of us. The #1 is used because the file we 
use is the first named in the files statement. If we want to print to the second 
file named in a files statement, then we use PRINT #2. We can also use PRINT 
#F where F is the file number. File names are separated by commas in the 
FILES statement. For example, 

100 FILES FILE1,FILE2,FILE3 

makes three files available to the program in which this statement appears. Sys- 
tems vary as to the number of files that may be named in a files statement. Most 
allow at least 8. 

This is the very first time that we have run a program which failed to print 
anything and yet did something useful. Generally speaking, we should print 
something to the terminal. To prove that the data really is in that file, we pre- 
sent program READ to read the data out of file INVOl. 
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•<EAD 

qz, ^rvt * RFADS IN7F.NT0RY DATA FROM A FILE 

100 FILES INV01 

110 DIM PSC'S] 

130 P«INT "PA(T NAME","PAn #", "P .< I CE", " 3 JANT I TY" 

1?4 \v*\ * READ DATA "ROM THE FILE 

— 130 READ * 1 ; PS»N» =» 

130 REM * PUNT THE DATA TO THE TERMINAL 

140 PRINT PS, N.P.I 

150 GOTO 130 

— 1*1 END 
R IN 

PART NAME Pa )l' :l P-ilCE OIA'ITITY 

F<AMIS 1001 ?.1 MOO 

', ID Rr T 1 00' / ( . /i 11 00 

REO ILATOR 1003 3. 48 c '00 

SL1CNEP 1004 .04 9000 

FRASMALATOR 1005 13.49 300 

WHATSIT 1006 10.98 3000 

END-OF-FILE/END OF RECORD IN LINE 130 

We get all of the information from the file and an error message to boot. 
We may avoid the error message by inserting an IF END statement. We will use 
105 IF END #1 THEN 160. This statement, executed just once, sets a flag so 
that if line 130 tries to read nonexistent data or tries to read past the physical 
end of the file, the computer will next execute line 160. Alternatively, of 
course, we could have placed our own flag in the file by printing dummy data 
into the file at the end of the real data. 



105 IF END #1 THEN 160 






RUN 








READ1 








PART NAME 


PART * 


PRICE 


QUANTITY 


F RAM IS 


1001 


2.3 


1800 


WIDGET 


1002 


4.4 


1 100 


REGULATOR 


1003 


3.48 


900 


SLICNEP 


1004 


.04 


9000 


FRASMALATOR 


1005 


IB. 49 


800 


WHATSIT 


100(5 


10. 98 


3000 



We can now sit down and dream up little programs to process the data in 
file INVOl. We might want to know the number of parts in inventory. You can 
easily verify that program READ2 does that. 



94 REM * THIS PROGRAM FINDS THE TOTAL 

100 FILES INVOl 

110 DIM PSC25] 

120 LET T=0 

130 IF END #1 THEN 170 

140 READ JIlPSiNiP.a 

144 REM * RUNNING TOTAL CALCULATED IN LINE 150 

150 LET T=T+0 

160 GOTO 140 
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170 PRINT T)' 

180 END 

RUN 

READS 

16600 part; 



It is left as an exercise for the reader to find the total value of inventory 
with a program. 

Now suppose we want to add inventory to INV01. Using ENTER1 again 
with different data will simply replace what is in INVOl with new data. (Actu- 
ally, the new data might replace only part of what is already in there, and this 
result has other complications.) What we must do is read out to the end of the 
data already in the file and then begin printing new data to the file at that point, 
as shown in program ENTER2. 

Note that program ENTER2 may also be used to enter data into an empty 
file. We do not need a different program for this purpose. It is a good practice 
to provide for printed output to the terminal in a program of this kind. We run 
READ1 again to make sure that the new data was properly added to the end of 
the file. 



ENTERS 


94 


REM * THIS PROGRAM ENTERS DATA INTO AN 1 


95 


REM PARTIALLY FILLED SERIAL FILE 


100 


FILES INVOl 


1 10 


DIM PS[25].QSC251 


1 14 


REM * READ TO THE END OF EXISTING DATA 


ISO 


IF END #1 THEN 150 


130 


READ CIlPt.N.PjO 


liO 


GOTO 130 


144 


REM * ENTER NEW DATA INTO THE FILE 


150 


READ PS.N.P.Q 


160 


IF N=0 THEN 200 


170 


LET 0S=PS 


180 


PRINT #IIPS.N.P.Q 


190 


GOTO 150 


SOO 


PRINT "LAST ITEM IS "JQS 


304 


REM 


S10 


DATA "LIFTER". 1007, .29, 1 0000, "DROPPER". 


22a 


DATA "WHOSIT", 1009. 16, 12. "HOLDER", 1010. 


230 


DATA "STOP", 0,0,0 


840 


END 


R'JN 




ENTER2 



1008. .89, 1500 
.47. 1 141 



LAST ITEM IS HOLDER 



RUN 








READ1 








PART NAME 


PART » 


PRICE 


QUANTITY 


FRAMIS 


1001 


2. 3 


1800 


WIDGET 


1002 


4.4 


1 100 


REGULATOR 


1003 


3.48 


900 


SLICNEP 


1004 


.04 


9000 


FRASMALATOR 


1005 


18.49 


800 


WHATSIT 


1006 


10.98 


3000 


LIFTER 


1007 


.29 


10000 


DROPPER 


1008 


.89 


1500 


WHO S I T 


1009 


16 


12 


HOLDER 


1010 


.47 


1 141 
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The next area we might get into is that of making changes in file INVOl 
according to business activity. We can do this with the procedures mentioned 
earlier, that is, by copying the entire contents of the file into another file, 
making changes on the way. However, if the amount of data becomes very 
great, the time lost by this method tends to be more important than the space 
saved by using serial files. Furthermore, there are many devices for utilizing ran- 
dom access files more efficiently. So let's talk about random access files. 

Random Access Files 

Files are serial or random access according to the structure the program- 
mer creates for them. In fact, the same file may be treated as serial by one 
program and random access by another. File INVOl was serial because we 
printed the data in serially. We may instead use the discrete records of the file 
for specifically arranged data. 

In our inventory example we might consider placing one inventory item on 
one record. Since most of our sample data are equivalent to about 5 numerics, 
this would be wasteful of computer space. However, in practice, an item of in- 
ventory will contain more data, and thus it is often wise to allow more file space 
than is needed at first. Then we will not have to restructure the entire storage 
plan as we might if we had placed several inventory items on a single record. 
In fact, if programmers anticipate that additional data may be required, they 
go one step further. They incorporate the extra variables into all programs, 
using zeros for numbers and empty or null strings for anticipated alphameric 
data. Then the existing programs will carry all of the variables needed and will 
not have to be rewritten to accommodate the new data structure. Of course, 
changes will have to be made to actually utilize the newly activated variables 
later. Moreover, in some situations we can use space more efficiently by storing 
numerics in one file and strings in another with a scheme to link the data from 
the two files to each other. That way numeric data may be MAT READ out 
of the file for very easy processing. 



94 REM * THIS PROGRAM ENTERS DATA INTO AN EMPTY 

95 REM FILE IN RANDOM ACCESS FORMAT 
100 FILES INV02 

I 10 DIM PSC25J 

-120 LET R=0 

130 READ PS.N.P.O 

140 IF N=0 THEN 190 

•150 LET R=R+1 

-160 READ #1.R 

-170 PRINT /MJPS.N.P.Q 

180 GOTO 130 

190 PRINT RJ-REC0RDS USED" 

194 REM 

200 DATA "F RAM IS"-- ! 00 1 - 2- 3- ' BOO- "WIDGET". 1 OOP. 4. 4. t 1 00 

210 DATA "REGULATOR". 1003. 3. 48. 900. "SLICNEP". 1004. .04.9000 

220 DATA "FRASMALAT0R". 1005. 1 8. 49. 800. "WHATSIT". 1006. 10.98. 3000 

230 DATA "STOP". 0.0.0 

240 END 

RUN 

ENTER3 

6 RECORDS USED 
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To keep things simple, suppose that we look at a program to place one 
inventory item per record, such as program ENTER3, which PRINTs inventory 
data into file INV02. 

Note that we have the computer print the number of records used to 
assure us that the program has performed as expected. Lines 120 and 150 keep 
track of the record to which we are going to print. Statement 160 sets a pointer 
in the file to the beginning of record R. Statement 170 prints data to the file 
beginning at the pointer. The pair of statements 160 and 170 may be replaced 
with the single statement, PRINT #1,R;P$,N,P,Q, the difference between the 
two being that if 170 attempts to print more than will fit on the record, the 
excess goes on the next record, whereas PRINT #1,R;P$,N,P,Q will result in an 
error message if the data to be printed will not fit on record R. 

Now program READ1 may still be used to read the contents of INV02 
by changing line 100 to FILES INV02. 

In order to add data to the end of file INV02, we have several techniques 
available to us. One is exactly analogous to that for serial files. Another uses 
the TYP( ) function. The TYP( ) function 'looks' at the next item of informa- 
tion in a file and identifies it as follows: 

TYP(N) = 1 Next item is a numeric 

TYP(N) = 2 Next item is a string 

TYP(N) = 3 Next item is end of file 

TYP(N) = 4 Next item is end of record 

where N is the position that the file name occupies in the FILES statement. If 
N is positive, the value 4 is never returned; to detect end of record, N must be 
negative. 

The TYP( ) function is used in line 150 of program ENTER4 to determine 



94 REM * THIS PROGRAM ENTERS DATA IN A PARTIALLY FILLED 

95 REM FILE IN RANDOM ACCESS FORM 
100 FILES INV02 

110 DIM PSC25] 

120 LET R=0 

130 LET R=R+1 

140 READ *1.R 

144 REM * LINE ISO DIRECTS THE COMPUTER TO LINE 

145 REM 130 IF WE ARE NOT AT THE END OF DATA 
-150 IF TYP<1> <> 3 THEN 130 

160 LET R=R-1 

170 READ PS.N.P.Q 

180 IF N=0 THEN 230 

190 LET R=R+1 

200 READ <n,R 

210 PRINT #1>P$,N,P,Q 

220 GOTO 170 

230 PRINT Rl "RECORDS USED" 

234 REM 

240 DATA "LIFTER". 1007. .29, 10000, "DROPPER", 1008. .89, 1500 

250 DATA "WH0SIT", 1009, 16, 12, "HOLDER". 101(1. .47, 1 141 

260 DATA "STOP", 0,0.0 

270 END 

RUN 

ENTER4 

10 RECORDS USED 
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the first record that has an end of file (sometimes referred to as EOF) marker 
and begin printing the new data on that record. Here again, as a check on the 
program, we have the computer tell us how many records have been used. 

Now we are in a position to explore some possibilities for editing the ran- 
dom access file. Note that we selected part numbers, so that if we subtract 
1000, we get the number of the record on which that part will be found. Often 
in data processing it is helpful to organize data so that something about the data 
tells us where to find it. This method is sometimes called "content addressing." 
It could consist of an extra item of data for file management purposes only. 

Let's write a program that allows us to go into the inventory file and 
change anything but the part number. We do this with program UPDATE. The 
part number is requested in line 150, and the part is found in line 200. Line 
210 prints the part name and offers to make a change possible. The same is 
done for the price in line 260 and for the quantity in line 310. When all infor- 
mation is correct, it is re-entered into the file in line 360. The IF END state- 
ment in line 130 provides for attempting to access a nonexistent record or for 
attempting to access a record that has no data on it. 



UPDATE 


94 


REM * THIS PROGRAM EDITS AN INVENTORY FILE 


100 


FILES INV02 


1 10 


DIM PSC251.ASC 33 


120 


PRINT "INPUT PART NUMBER ZERO T0 QUIT" 


130 


IF END #1 THEN 380 


140 


PRINT 


150 


PRINT "PART #") 


160 


INPUT Nl 


170 


IF Nl <> INTCN1) THEN 150 


180 


IF N1=0 THEN 860 


184 


REM * CALCULATE RECORD FROM PART NUMBER 


190 


LET R=N1-1000 


200 


READ #1.R>PS,N.P»Q 


210 


PRINT PS> 


220 


GO SUB 800 


230 


IF A$="YES" THEN 260 


240 


PRINT "CHANGE T0"J 


250 


INPUT PS 


260 


PRINT "PRICE = S"JP; 


870 


GO SUB 800 


280 


IF A$="YES" THEN 310 


290 


PRINT "CHANGE TO S") 


300 


INPUT P 


310 


PRINT "QTY = "I0J 


320 


GOSUB 800 


330 


IF A$="YES" THEN 360 


340 


PRINT "CHANGE TO"! 


350 


INPUT 


354 


REM * PRINT CORRECTED INFORMATION BACK TO 


36 


PRINT 01, RIPS. N, P.Q 


37 


GOTO 140 


380 


PRINT "NO SUCH PART #" 


39 


GOTO 140 










790 


PRINT "YES OR NO" 


800 


PRINT " OK") 


810 


INPUT AS 


820 


IF AS="YES" THEN 850 


830 


IF AS="N0" THEN 8S0 


840 


GOTO 790 


850 


RETURN 


860 


END 



THE FILE 
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RUN 
UPDATE 

INPUT PART NUMBER ZERO TO QUIT 

PART #7 1001 

FRAMIS OK7YES 

PRICE = S 2.3 OK?N0 

CHANGE T0 87 3.34 

QTY = 1800 0K7YES 

PART #7 1003 

REGULATOR OK? YES 

PRICE = S 3.43 OK?YES 

QTY = 900 0K?N0 

CHANGE T07878 

PART #7 



A run of READ1 confirms that the proper changes were indeed made in 
the file. 



100 FILES 


INV02 






RUN 








READ1 








PART NAME 


PART * 


PRICE 


QUANTITY 


FRAMIS 


1001 


3.24 


1800 


WIDGET 


1002 


4.4 


1 100 


REGULATOR 


1003 


3.48 


878 


SLICNEP 


1004 


.04 


9000 


FRASMALATOR 


1005 


18.49 


800 


WHATSIT 


1006 


10.93 


3000 


LIFTER 


1007 


.29 


10000 


DROPPER 


1003 


.89 


1500 


WH0SIT 


1009 


16 


12 


H3LDER 


1010 


.47 


1 141 



Summary of Sec. 4-2 

We have seen that files are serial or random access depending only on the 
approach that a program takes in printing data to or reading data from the file. 
In order to treat a file as random access, the data must be placed so that its lo- 
cation within a record is known. Files are made available to a program with the 
FILES statement. We can detect the end of data or physical end of file with the 
IF END statement. Data is entered into a file with the PRINT # statement and 
read from a file with the READ # statement. In addition, we may determine the 
nature of the next information in the file through use of the TYP( ) function. 
A file pointer can be set to the beginning of record R of file F with READ #F,R 
without reading any data. 

Problems for Sec. 4-2 

1) Arrange 10 or more strings in alphabetical order by placing them one 
to a record in a file. 

2) Write a program to print the contents of a file without knowing the 
structure of the file. 

3) Write a program to copy the contents of one file into another. See if 
you can provide for copying 'holes' too. 
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4) Write a program to find the first empty record and determine the num- 
ber of records in the file. 

4-3 General Electric Files 

We actually are going to talk about external data files in this section, for 
in fact, programs are files too, and the data contained in DATA statements of a 
program are referred to as "internal files." The creation and use of data files can 
be a very complex business indeed. It is the purpose of this section to present 
some of the data file concepts and provide sufficient examples so that the reader 
will be able to use the power of files in future programming. (Our examples will 
of necessity handle only small amounts of data, as it would not be practical to 
print the entire contents of very large files.) 

Files of two types are available to BASIC programs. They are called 
"ASCII files" and "BINARY files." ASCII files are also referred to as "Teletype 
files." This term reflects the fact that they may be created by typing data 
directly at the terminal using line numbers exactly as a program is typed at the 
terminal and that they may be listed directly to the terminal just as a program 
may be listed to the terminal. ASCII files may also be used by programs. Binary 
files may be used only under program control and may not be written to or read 
from the terminal. 

ASCII Files 

Data may be typed directly to the terminal. All we have to do is create a 
file with the command NEW and begin typing our data as if it were a program. 
Each line must have a line number followed by a space followed by our data 
separated by commas. String and numeric data may be intermixed. Lines may 
be corrected by retyping them. Lines may be deleted by typing the line number 
followed by return. For an ASCII file to be usable at some later time, it must be 
saved by typing the command SAVE. 

To demonstrate some of the uses of ASCII files, we have selected the 
names of the ten largest cities in the U.S. according to the 1960 census, their 
rank, and the percentage change in population from 1960 to 1970. File CITY 
has been created, the data typed to the terminal, and the file saved as described 
above. Since this is a listable file, we do so below. 

LIST CITY 
CITY 

100 BALTIMORE MD.6.-4.7 

110 CHICAGO ILL. 2.-6. 3 

120 CLEVELAND OHIO. 8. - 1 5 .7 

130 DETROIT MICH. 5. -10. 6 

140 H0UST0N TEXAS.7.29.3 

150 L0S ANGELES CALIF. 3.12.2 

160 NEW Y0RK N.Y..1.-.1 

170 PHILADELPHIA PA. .4. -3. 8 

180 ST LOUIS M0» 10.-19 

190 WASHINGTON D.C..9.-4.8 

We may now write programs to access the data in file CITY. Probably the 
simplest useful task we could perform would be to print the contents of the file 
under program control. 
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In order to make the file available to the program we use the FILES state- 
ment in line 100 of program READCITY. We may read data from the external 
file in a manner similar to that with which we read data from internal files. To 
read from the file named in the files statement, we use READ #1 followed by 
the list of variables we want. This is done in line 120 of the program. Every 
time such a statement is executed, a pointer is moved in the file so that the next 
read statement begins to read at the pointer. Initially, all file pointers are at the 
very beginning of the file. Note that we could use READ #0 to read from the 
data statement of the program. Since it is possible to attempt to read past the 
end of the data in the file, we use the IF M0RE statement in line 140. As long 
as there is more data in the file, line 140 in our program will direct the computer 
to 120. When the data has all been read, line 140 will test false and control 
passes to line 150 in this case. 

READCITY 

94 REM * THIS PROGRAM READS THE CONTENTS OF FILE CITY 

— 100 FILES CITY 

110 PRINT "CITY"J TABC20)) "RANK"! TABC25)J "% GROWTH" 

— 120 READ #1. C$,R,G 

130 PRINT CSI TABC20)) R) TABC25)) G 

— 140 IF MORE #1 THEN 120 
150 END 

RUN 
READCITY 



CITY 


RANK 


X GROWTH 


BALTIMORE MD 


6 


-4.7 


CHICAGO ILL 


2 


-6.3 


CLEVELAND OHIO 


8 


- 15.7 


DETROIT MICH 


5 


-10.6 


HOUSTON TEXAS 


7 


29.3 


LOS ANGELES CALIF 


3 


12.2 


NEW YORK N.Y. 


1 


-0. 1 


PHILADELPHIA PA. 


4 


-3.8 


ST LOUIS M0 


10 


- 19 


WASHINGTON D.C. 


9 


-4.8 



It turns out that ASCII files are always sequential (serial) in format. This 
means that data must be accessed by reading from the first set of data step by 
step until the desired information is obtained. There is no way to begin at some 
intermediate point of the file. We can, however, add data to the end of the file 
with an append statement. APPEND #1 sets the file pointer to the end of data in 
the file and prepares the file for writing. For any data processing that requires 
tabulating information from each line of data, the sequential nature of ASCII 
files is ideal. Furthermore, ASCII files are very easy to edit from the keyboard, 
as described earlier. Having seen how to read an ASCII file, we will next see how 
to write to such a file with a program. 

Let's write a program to transfer the data from file CITY to file CITY1, 
rearranging the data so that the order in which the cities appear in the new file 
will be according to decreasing percentage growth. One way to create the new 
file Is with the NEW command. Once you have named the file, type 100, press 
the space bar, then the return key, and save the file. Now we have to provide 
access to two files in one program. This is done with the FILES statement. Up 
to eight files may be named in a FILES statement as long as they are separated 
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with semicolons. These files may then be designated by number according to 
the order in which they are named in the FILES statement, as shown by line 100 
of program GR0WTH. 

Since it is easy to sort numbers in a one-dimensional list, the strategy we 
will use here is to pass through the file once, entering the percentage growth for 
each city in the array A as we go. Thus A(l) becomes the percentage growth of 

GROWTH 

94 REM * THIS PROGRAM ARRANGES TEN CITIES ACCORDING T0 

95 REM GROWTH RATE USING TWO SEQUENTIAL FILES 
100 FILES CITY) CITY1 

1 10 DIM AC 10). BC 10) 
I 12 

114 REM * ENTER GROWTH DATA IN ARRAY A AND ORIGINAL 

115 REM POSITION IN FILE CITY IN ARRAY B 
120 FOR I = 1 TO 10 

130 READ #1. NS.R.G 

140 LET ACI) = G 

150 LET BCD = I 

160 NEXT I 

162 

164 REM * BEGINNING OF SORT 

170 LET N = 10 

180 LET S = 

190 FOR I = 1 TO N-l 

200 IF ACI) >= ACI + D THEN 280 

202 

204 REM * EXCHANGE OUT OF ORDER DATA 

205 REM AND TURN SWITCH ON 
210 LET SI = ACI) 

220 LET ACI) = ACI+1) 

230 LET ACI+I) = SI 

240 LET SI = BCD 

250 LET BCD = BCI+D 

26 LET 9CI-U) = SI 

270 LET S = 1 

280 NEXT I 

282 

290 LET N = N-l 

300 IF S = 1 THEN 180 

302 

304 REM * GROWTH RATE IS IN ORDER NOW PRINT 

305 REM DATA IN FILE CITY1 
310 SCRATCH 02 

320 FOR I = 1 TO 10 

330 RESTORE #1 

340 FOR J = 1 TO BCD 

350 READ #1. N$,R»G 

360 NEXT J 

362 

370 WRITE HZ, NS.R.G 

380 PRINT NS 

390 NEXT I 

392 

400 END 

RUN 

GROWTH 

HOUSTON TEXAS 
LOS ANGELES CALIF 
NEW YORK N.Y. 
PHILADELPHIA PA. 
BALTIMORE MD 
WASHINGTON D.C. 
CHICAGO ILL 
DETROIT MICH 
CLEVELAND OHIO 
ST LOUIS MO 
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the first city in the file and A(10) becomes the percentage growth of the tenth 
city in the file. Entering is done in lines 120 through 160. We store the original 
position in a B array. 

Now that the list is in order we know that whatever city has the percentage 
growth stored in A(l) goes first in our second file and whatever city has the 
growth rate in A(I) goes in the Ith position of file CITY1. However, in order to 
prepare a file for printing, we must use the SCRATCH statement. That state- 
ment erases whatever is in a file, prepares it for write mode, and sets the file 
pointer at the beginning of the file. Since we want to write to the second file 
in our FILES statement, we use SCRATCH #2 in line 310. The next complica- 
tion we face is that the pointer in file CITY is now at the end of the data. We 
move the pointer to the beginning of the file and keep the file in read mode with 
the REST0RE statement in line 330. REST0RE #N acts on the Nth file in the 
FILES statement. The REST0RE statement must be executed every time we 
want to reread the file. The actual entry of the data to file CITY1 takes place 
in line 370 of program GR0WTH when we have found the city with the growth 
rate in the Ith location of the arranged list A by reading to that city's position 
in the original file as determined by list B. 

We now run READCITY on file CITY1 to confirm the contents of that 
file. 



100 FILES CITY1 






RUN 






READCITY 






CITY 


RANK 


% GROWTH 


H0UST0N TEXAS 


7 


29.3 


LBS ANGELES CALIF 


3 


12. S 


NEW YORK N.Y. 


1 


-0. 1 


PHILADELPHIA PA. 


A 


-3.8 


BALTIMORE MD 


6 


-4.7 


WASHINGTON D.C. 


9 


-A.B 


CHICAGO ILL 


a 


-6.3 


DETROIT MICH 


5 


- 10.6 


CLEVELAND OHIO 


8 


-15.7 


ST LOUIS M0 


10 


-19 



Binary Files 

Binary files are available only under program control. Whereas ASCII files 
may be only sequential, binary files may be either sequential or random access. 
Random access means that any data item may be accessed without reading all 
data from the beginning of the file up to that data item and that data may be 
written to any point in the file directly in the same manner. 

An ASCII file or a binary file may be used as a sequential file as deter- 
mined by the first WRITE statement which applies to that file after the file is 
made available for write mode by the SCRATCH statement. To work with a 
file as a sequential binary file simply use a colon (:) where the pound sign (#) 
occurs in the READ, REST0RE, SCRATCH, IF M0RE and WRITE statements. 
The distinction between ASCII and binary files, regardless of sequentiality or 
randomness, has to do with the code that is used to store the data on some 
device peripheral to the computer, and does not generally effect the programmer 
at the level of programming in BASIC. 
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Random Access Files 

Thus far we have not been concerned with how much space our data has 
occupied because our files simply expanded to fit whatever we had written to 
the file. We are not likely to exceed the maximum space available in a single file 
for some time. However, since random access files must have a structure allow- 
ing data to be placed in physical locations that will be known to us for future 
access, space requirements for data storage become important. The structure of 
a random access file is a little like that of a two-dimensional array except that in 
a file we may intermix numeric and string data. In some situations, however, we 
may choose to place numeric data in one file or group of files and related string 
data in another file or group of files, with a scheme for relating the two 
structures. 

Random access files may be segmented into components called "records." 
We may assign the amount of storage space in each record at the time we create 
the file. Storage space is measured in computer words, and storage is required 
for data as follows: 

1 word per numeric 

1 word per 4 string characters or fraction thereof 

1 word for control per string for internal computer purposes. 

For example we could store 120 numerics in any file in which the product of the 
number of records and the number of words per record is at least 120. Since we 
are going to have control over the space in each record, we generally select some 
record size that is appropriate to our data structure, just as we usually dimension 
an array to fit the structure of the data we intend to store in it. 

Let us begin by writing 10 random numbers to a random access file, proving 
that the numbers are really there and then arranging them in increasing order by 
using the random accessibility of the file to do the sorting. 

First, the file must exist. The system command CREATE is required here. 
Let's provide two records which will handle 10 words each. Then our ten num- 
bers will all fit on the first record. The executive command, 

CRE RAND,(RAN(10,2)) 

accomplishes this. The numbers in parentheses specify the number of words per 
record first and the number of records second. Program RNDENTER is identi- 
cal to a program that would write ten random numbers to an ASCII file except 
that a colon appears where a pound sign would appear in a program writing to a 
sequential file and no SCRATCH statement is required. 



RNDENTER 


94 


REM * THIS PROGRAM WRITES 10 RANDOM NUMBERS 


95 


REM TO A RANDOM ACCESS FILE 


100 


FILES RAND 


1 10 


RANDOMIZE 


120 


FOR I = 1 TO 10 


130 


WRITE :1» RND 


140 


NEXT I 


142 




ISO 


END 


RUN 




RNDENTER 
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Note that the program generates no printed output. (It is not good general 
procedure to write programs with no visible output except to prove, as with pro- 
gram RNDENTER, that the program did in fact do something invisible.) We 
now need a program to read file RAND. Program RNDREAD does that. 



RN DREAD 




94 REM * THIS PROGRAM 


READS NUMERICS FROM A 


95 REM RANDOM ACCESS 


FILE SEQUENTIALLY 


100 FILES RAND 




110 READ :1» A 




120 IF A=0 THEN 150 




130 PRINT A 




140 GOTO 110 




150 END 




RUN 




RNDRTAD 




0.290289 




0.257207 




0.705748 




0.717468 




0. 143835 




0. 349935 




0.704994 




0.649726 




0.974231 




0.852828 





RNDREAD is like a program to read a sequential file, with one important 
difference. Look at line 120. Since we didn't put any zero values into the file, 
why test for zero? We would have used the IF M0RE statement in an ASCII 
file. IF M0RE does not determine an end of data condition in a random access 
file effectively because the CREATE command filled the file with binary zeros. 
The SCRATCH statement will have the same effect. Thus we are able to termi- 
nate our little program by reading values of A until we come up with zero. 
IF M0RE does determine whether or not we have reached the physical end of 
the file, however. Thus in our file RAND, if we had read 20 numerics, then IF 
M0RE :1 would test false. A companion statement IF END :1 would test true 
in this condition. We should be beginning to see, and will soon see even more 
clearly, that the total structure of the data storage is the complete responsibility 
of the programmer. We must know when we have reached the end of our real 
data. We may want to count the number of data items or we may want to place 
dummy data at the end of the file just as we often do for data statements of a 
program. 

Now let us arrange the numbers of file RAND in ascending order by 
operating on the data within the file as we go. The basic sorting scheme is ex- 
actly like that we just used for sorting cities and that we will use again in chapter 
eleven. The only difference is that we are now comparing numbers that have 
addresses in a file instead of in a list. In order to set the file pointer to the 
proper location of our file, we use the SETW statement. SETW N T0 X moves 
the pointer in file N to the beginning of the Xth word of storage counting from 
the beginning of the file. This operation is totally independent of the number of 
words per record. Thus if a file has nine words per record, then SETW N T0 12 
moves the pointer to the beginning of the third word on the second record of 
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file number N. Once the pointer is set, the next read or write statement begins 
reading or writing from that point. In our problem we will be reading a single 
numeric value. 

In program RNDS0RT, line 130 sets the pointer to the Ith word of the 
file so that the Ith number may be read by line 140. Line 150 sets the pointer 
to the I+lst word so that the I+lst number may be read out. If they are in the 
desired order, line 170 directs the computer to line 230, which causes the next 
pair of adjacent numbers to be tested. Should the test in line 170 fail lines 180 

RNDS0RT 

94 REM * THIS PROGRAM ARRANGES 10 NUMBERS IN 

95 REM ORDER IN A RANDOM ACCESS FILE 
100 FILES RAND 

1 10 LET S = 

120 FOR I = 1 TO 9 

— 130 SETW 1 TO I 

— 140 READ :l. A 
—150 SETW 1 TO 1+1 

160 READ :l, B 

— 170 IF A <= B THEN 330 
172 

174 REM * EXCHANGE OUT OF ORDER DATA 

180 SETW 1 TO I 

190 WRITE :l> B 

200 SETW 1 TO 1+1 

210 WRITE :1» A 

220 LET S = 1 

— 230 NEXT I 
232 

— 240 IF S = 1 THEN 1 10 
250 PRINT "DONE" 

260 END 

RUN 

RNDS0RT 

DONE 

through 210, exchange the positions that the two values occupied in the file. 
Then a switch is turned on by setting S equal to one. When the computer has 
passed through the list, we test in line 240 to see if any exchanges have been 
made. If there have been no exchanges, then the numbers are in order and we 
have the computer print "D0NE". In the present situation, we rerun 
RNDREAD to verify that the program did in fact sort the file. 



RUN 
RNDREAD 

0. 143835 
0.220289 
0.257207 
0.349935 
0.649726 
0.704994 
0.705748 
0.717468 
0.852828 
0.974231 

For our final example, let us take the data in the ASCII file CITY and 
enter it into a random access file. To do this we must plan very carefully, as we 
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must be able to specify the position of all data in the file exactly. It is usually 
convenient to group the data that belongs together on a single record. In our 
problem we have three variables: the city name, its rank, and its percentage 
growth. The rank and percentage growth are both numerics and so occupy one 
word of computer storage each. The city names are strings of different lengths 
and so require different amounts of space. A reasonable approach is to allow 
space for the largest string and dimension our file accordingly. Clearly L0S 
ANGELES CALIF is the longest string we use. The string has four groups of 
four characters and one character left over. That requires five words. We must 
add one word for internal control plus the two for the numerics. That puts the 
required space at eight words of storage per city. So we must CREATE a file 
with at least 10 records at eight words per record. We do this with 

CRE CITY2,(RAN(8,10)) 

In order to set the file pointer to the beginning of the Ith record where the 
records contain eight words each, all we have to do is point 8(I-1)+1 words from 
the beginning of the file, as shown in line 140 of program XFER. This program 
transfers the data from ASCII file CITY to random access file CITY2. Notice 
that there is no difficulty whatever in accessing two different kinds of file with 
the same program. 



XFER 

94 REM * THIS PROGRAM COPIES DATA FROM ASCII FILE CITY 

95 REM TO RANDOM ACCESS FILE CITY2 
100 FILES CITYJ CITY2 

110 LET I = 

120 READ #1. CS.R.G 

130 LET I = 1+1 

132 

134 REM * THE FORMULA IN LINE 140 SETS THE 

135 REM POINTER TO THE ITH RECORD IN THE FILE 
140 SETW 2 T0 8*(I-1 )+l 

150 WRITE 12. CS.R.G 

160 IF MORE #1 THEN 120 

170 PRINT IJ "ENTRIES" 

180 END 

RUN 

XFER 

10 ENTRIES 

Our final task is to arrange the cities according to rank without using a 
second file and without using the technique of saving the numbers to be sorted 
in an array. This program, program RANK, is very similar to RNDS0RT except 
that the pointer is a formula and the read and write statements work with three 
variables instead of one. 



94 REM * THIS PROGRAM ORDERS CITIES ACCORDING TO RANK 

95 REM IN A RANDOM ACCESS FILE 
100 FILES CITY2 

1 10 LET Nl = 

120 LET N = 10 

130 LET S = 

140 FOR I = 1 TO N-l 
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150 SETW 1 T0 8* C I ~ I > + I 

160 READ :1» CS.R.G 

170 SETW 1 T0 8*1+1 

180 READ tl< C1S,R1»G1 

190 IF R <= Rl THEN 250 

192 

194 REM * EXCHANGE OUT OF ORDER DATA 

200 SETW 1 T0 B*< I- 1 >+ 1 

210 WRITE :l» C1S,RI.GI 

220 SETW 1 TO 8*1+1 

230 WRITE !l» CS.R.G 

240 LET S = 1 

250 NEXT I 

252 

260 LET N = N-l 

270 LET Nl = N1+ 1 

280 IF S = 1 THEN 130 

282 

290 PRINT "CITIES ORDERED ON RANK" 

300 PRINT "IN"J Nl! "PASSES" 

310 END 

RUN 

RANK 

CITIES ORDERED ON RANK 

IN 7 PASSES 



Program REDCITY2 tabulates the results directly from the file. 



REDCITY2 

94 REM * THIS PROGRAM READS THE CONTENTS OF FILE CITY2 

95 REM AND PRINTS TO THE TERMINAL 
100 FILES CITY2 

110 PRINT "CITY"! TABC20)J "RANK"! TAB(25)J "% GROWTH" 

120 FOR I = 1 T0 10 

130 SETW 1 TO 8*(I-1)+1 

-140 READ I 1» CS.R.G 

-150 PRINT CSJ TABC20)J Rl TABC26); G 

160 NEXT I 

162 

170 END 

RUN 

REDCITY2 

CITY RANK % GROWTH 

NEW YORK N.Y. 1 -0. 1 

CHICAGO ILL 2 -6.3 

LOS ANGELES CALIF 3 12.2 

PHILADELPHIA PA. 4 -3.8 

DETROIT MICH 5 -10.6 

BALTIMORE MD 6 -4.7 

HOUSTON TEXAS 7 29.3 

CLEVELAND OHIO 8 -15.7 

WASHINGTON D.C. 9 -4.8 

ST LOUIS M0 10-19 



Summary of Sec. 4-3 

ASCII and binary files are used to store and to arrange both string and 
numeric data. We have seen that ASCII files can be accessed either by the ter- 
minal directly or by a program, whereas binary files are available only under pro- 
gram control. Binary files may be either sequential or random access, but ASCII 
files are only sequential. In order to make any file available to a program, the 
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FILES statement must name the files we want, separated by semicolons. The 
files are numbered according to the order of appearance in the files statement. 
As many as eight files may be accessed by a single program simultaneously. 
(Provision may be made for substituting new files for previously named old ones 
within a program.) 

The following special statements apply to ASCII files: REST0RE #N 
moves the file pointer to the beginning of file N and places the file in read mode. 
READ #N,A,B,C$ reads values from file N for variables A,B,C$. WRITE 
#N,X,B$ enters the contents of X and B$ into file N. SCRATCH #N erases 
the contents of file N and places the file in write mode at its beginning. IF 
M0RE #N tests for more data in file N. IF END #N tests for the end of data 
condition in file N. All the above statements can be used for binary files by 
changing the pound sign (#) to a colon (:). There are some differences when it 
comes to random access files, however. SCRATCH :N, when applied to a 
random file, fills the file with zeros, sets the pointer to the beginning of the file, 
and places it in write mode. IF END and IF M0RE work only at the physical 
end of the file. In addition, there is a special statement for random files to place 
the file pointer under program control. SETW N T0 I may be used to place the 
file pointer of file N at the beginning of the Ith word of the file. 

Problems for Sec. 4-3 

1) Enter student names followed by a fixed number of test scores in a 
sequential file. Arrange the students by test average and write the re- 
sults to another file. 

2) Suppose you have entered a large number of names in a file, last name 
first, one name to a string for alphabetizing. Write a program to print 
a list of names in alphabetical order but first name first. 

3) Write a program to read numerics from two ordered files and print a 
single merged and ordered list to the terminal. 

4) Write a program that will insert an item of data into an already ordered 
random access file so that the new item is in order. 

5) You have a random access file with unknown contents. Write a pro- 
gram to determine the number of words the file contains. 

6) Write a program to enter inventory data into a random access file. The 
data should include, for every part, a number, name, price, quantity, 
low order point, and reorder quantity. The low order point is the 
quantity that should trigger reordering for that part, and the reorder 
quantity is the quantity that should be ordered. Write a program or 
programs to do any or all of the following: modify quantity and or 
price according to business activity, edit the low order point and re- 
order quantities, process the file to find the total dollar value of the 
inventory, and process the file to determine what parts must be re- 
ordered and the quantities to be ordered. 
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5-1 Introduction 

There are many sophisticated mechanical plotters on the market offered 
by a number of manufacturers. These generally use a pen which draws very 
short (0.01 inch is typical) straight line segments as determined by a program. 
The smaller the segments, the smoother the curve. However, this chapter is 
limited to using the terminal itself as a plotter. There are a number of disad- 
vantages to using the terminal for this purpose. Plotting is slow and may there- 
fore be expensive. The graphs we get are imprecise, and we can't easily use 
graph paper. Be all that as it may, if we have no other plotter, we can get very 
helpful plots from the terminal. The terminal has the advantage that it is con- 
veniently available. 

5-2 Plotting a Function 

We can greatly simplify plotting by choosing a function, since functions 
have the feature that for any value of x there is exactly one value lory. So, if 
we think of y as increasing across the page from left to right and x increasing 
down the page from top to bottom, when the plot is completed, we just turn 
the paper ninety degrees counterclockwise to obtain the conventional orienta- 
tion. 

To plot a single function, we first locate the origin and then concern our- 
selves with having the terminal mark the axes. Let's plot y = §- x + 3. The 
— w.~ r .««.,..* 6 .» .^j u.n.jpic. .mi umii ia neucaaaxy is iu use uie irt.r>(lN; printing 
function to get the printing mechanism out to the proper location on the paper 
and then print some symbol. Since the TAB function begins counting at the 
left margin and we would like to have negative values available for y on the 
graph, it will be necessary to move the x axis to the right. How far we move it 

64 
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will depend on the particular graph. We simply add some constant value to 
all TAB arguments. This value is set in line 110 of program GRAPH1. If your 
version of BASIC does not have a TAB(N) function, then you may put 
PRINT" "; in a loop to get the printing head to the proper spot on the paper. 
We print a plus sign to indicate the origin. We will therefore have to check to 
see if we are at x = and then determine whether the point of the graph is to 
the left or the right of zero. 



94 REM * THIS IS A RUDIMENTARY PLOTTING PROGRAM 

100 DEF FNFCX) = .5*X+3 

ioa 

104 REM * K M0VES THE ORIGIN K SPACES TO THE RIGHT 

-110 LET K = 10 

120 FOR X 3 -7 TO 7 

130 LET Y = FNF(X) 
- 140 IF X <> THEN 210 

150 IF Y < -.5 THEN 180 

152 

154 REM * X = AND Y >= -.5 SO PRINT ORIGIN 

160 PRINT TAB<K)J "+"J 

170 IF Y < .5 THEN 220 

180 PRINT TABC INT(Y+.5)+K )J "*"1 

190 IF Y < -.5 THEN 160 

200 GOTO 220 

210 PRINT TAB( INTC Y+. 5 >+K )J "*") 

220 PRINT 

230 NEXT X 

232 

240 END 

RUN 

GRAPH 1 



GRAPH1 seems to do the job we set out to do. (Be sure to turn the re- 
sults ninety degrees counterclockwise to view the graph.) However, there are 
many improvements that we can make. Let's put in a set of axes. Since the 
y-axis is the line where x = 0, the y-axis provision can go after line 140 of 
GRAPH1. In order to put the x-axis in, we have to check for each value of x 
whether or not the plotted point is below the x-axis. This is done in line 200 of 
GRAPH2. As long as we are working on the program, let's add a little flexibility 
by putting the position of the x-axis and the domain in as data. See lines 110, 
130, and 600 of GRAPH2. Note that a distinguishing character is used to mark 
every tenth location in each of the axes. This greatly improves the readability of 
the plot. Lines 210 and 420 determine where those marks are printed. 
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94 REM * THIS PROGRAM PL0TS GRAPHS 0F FUNCTIONS 

95 REM WITH AXES PRINTED 
100 DEF FNF<X> = .5*X*3 

I OS 

104 REM * THE VALUE 0F N DETERMINES LENGTH 0F Y-AXIS 

105 REM K M0VES THE GRAPH K SPACES T0 THE RIGHT 

106 REM F IS THE FIRST VALUE 0F X F0R THE PL0T 

107 REM L IS THE LAST VALUE 0F X F0R THE PL0T 
—110 READ N» K, F» L 

ISO PRINT TABCK-DJ "X="l F 

— 130 F0R X = F T0 L 
140 LET Y = FNF(X) 

150 IF X <> THEN SOO 

158 

154 REM * X = S0 THIS IS THE Y-AXIS 

160 F0R Yl = -K T0 N-K 

170 G0SUB 400 

180 NEXT Yl 

190 G0T0 280 

19S 

194 REM * P0INTS 0FF Y-AXIS ARE PRINTED 

195 REM IN LINES SOO T0 280 

— 200 IF Y < .5 THEN 260 

— 210 IF X/10 <> INTCX/10) THEN S40 
220 PRINT TABCK)J "-"J 

230 G0T0 250 

240 PRINT TAB<K)I "!"j 

250 IF Y < .5 THEN 280 

260 PRINT TAB< INT C Y*.5 >*K )J "*"» 

270 IF Y < -.5 THEN 210 

280 PRINT 

290 NEXT X 

292 

300 PRINT TABCK-DJ "X ="J L 

310 STOP 

392 

394 REM * SUBROUTINE T0 PRINT Y-AXIS 

400 IF Yl = THEN 490 

410 IF ABSCY-Y1) < .5 THEN 470 

— 420 IF Yl/10 = INTCY1/10) THEN 450 
430 PRINT "-"J 

440 RETURN 

450 PRINT "I") 

460 RETURN 

470 PRINT "*"J 

480 RETURN 

490 PRINT "+"J 

500 RETURN 

502 

594 REM 

— 600 DATA 25, 10, -11, 12 
610 END 

Three runs of GRAPH2 show a variety of results. For the first RUN of 
GRAPH2, we present the line y = \ x + 3 from program GRAPH1. For the 

second RUN, we re-define the function in line 100 to plot the parabola, y = 

-Ax 2 - x + 8. For the third RUN, we again re-define the function in line 
100 to get the graph of y = .2x 3 - 2x 2 + x + 5. 

Wp have in GRAPH2 a satisfactory basic Tra^hin" n roTrarn and the re- 
sults may be enhanced by sketching a curve through the plotted points by hand. 
We can still improve on the program itself, though. Consider what the sine 
graph would look like using the program as it stands. The graph would show us 

little. Clearly we could do better by putting a scale capability in for both axes. 
This is left as an exercise. 
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RUN 
GRAPH2 



X=-ll 

* I 

* - 
*! 



100 DEF FNF<X> = -.4*X»2-X+8 
600 DATA 55. 40. -12. 9 

RUN 
GRAPH2 



X=-12 



X = 12 



100 DEF FNF(X) = .2*Xt 3-2*Xt 2+X+5 

600 DATA 69. 30. -3. 11 

RUN 

GRAPH2 

X=-3 



! * 

!* 



Summary of Sec. 5-2 

We have developed a program to use the terminal as a plotter. This ap- 
pears to give us rough but satisfactory graphs for a variety of functions. 

Problems for Sec. 5-2 

1) Modify GRAPH2 to allow a change of scale. Allow for two different 
scales for the two axes. Use the new program to plot any of the 
following: 

a) y = sin x 

b) y = cosx 
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c) y = x - INT(x) 

d) y = x + INT(x) 

e) y = \fx 

2) You may have noticed that the mechanics of your terminal are such 
that the vertical and horizontal scales are different. On many termi- 
nals there are 10 characters per inch on the horizontal line and six 
lines per inch on the vertical page. Use the scaling ability of problem 
1 to provide equal scale for both axes relative to the graph. 

3) Modify GRAPH2 to handle more than one function. 

5-3 Plotting Using Data Stored in an Array 

There are some other things we can do with plotting. For instance, we 
can plot a graph that does not have to be rotated to achieve standard orienta- 
tion. And we might want to plot some nonfunction relation. 

One way to achieve such a capability is to set up a computer array in such 
a way that each storage location of the array corresponds to a coordinate point 
of the graph. We will have some adjustment problems, however, because for an 
array the "starting point" is the upper left corner and for a graph the "starting 
point" is generally nearer the center of things. This difficulty can be handled 
by shifting the "starting point" of the graph to the left and up. Also for an 
array, row numbers increase from top to bottom, and the reverse is true for a 
graph. This problem can be handled by putting the graph into the array "up- 
side down". 

We can scan through the array inserting numbers which will later be inter- 
preted to print specific characters. Let us make the graph cover an odd number 
of coordinate points in each direction and make the middle element of the array 
correspond to the origin of the graph. We can begin by setting every entry of 
the array to zero, to be ignored when the printing takes place. Then we use a 
'1' to signify the origin, a '2' to signify the horizontal axis, a '3' to signify the 
vertical axis, and a '4' to signify the plotted point. This scheme will allow more 
relations to be handled by using numbers greater than 4 for the additional 
graphs. 

All these features are incorporated in program GRAPH3. The axes are 
shifted, and the y-axis is turned upside down by line 230. The yaxis is entered 
in line 160. The x-axis is entered in line 170. The origin is entered at line 190. 
The use of the variable LI is to save program storage. It takes less computer 
storage to set LI equal to L + 1 and then use LI (rather than L + 1) as long 
as we need this value several times, and moreover it saves typing. On some sys- 
tems, storage will not be a limitation for a program like this, but if it is, then 
such a procedure is worth using. Line 220 tests to see if the coordinate position 
of the array is on the graph. This depends on our choice for the value of t. If 

fho vallio of + ic £ fVion ixm «n+ o m>nnU Ujn*- Kl.-~ fUnJ- ~£ — «~« , nrt ADIIO 

j.*w , ™,_~ „_ - -o .~, -..v.. .. ~ £,~v v» j^i-j/it j"^" "iw Untib yJi. £/A*.>gi.ani Uimmii, 

However, by increasing the value of t, we can have more points plotted. This 
tends to "fill in" the graph. Lines 110 and all other references to D are 
employed to limit the actual use to only that part of the array that seems neces- 
sary for the graph requested. This will save printing time. As written, the pro- 
gram causes the printing mechanism to scan the entire line. Considerable print- 
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94 REM * GRAPH FROM DATA ENTERED IN AN ARRAY 

100 DIM AC48.48) 

102 

104 REM * D SPECIFIES WIDTH AND HEIGHT 0F GRAPH 

105 REM L IS THE NUMBER 0F SPACES EACH SIDE OF ZERO 

106 REM T DETERMINES GRAPH RESOLUTION 

107 REM LI IS USED TO SAVE TYPING L+ 1 REPEATEDLY 
110 LET D = 21 

130 LET L = CD-I >/2 

130 LET T = .4 

140 LET LI = L+l 

142 

144 REM * ENTER AXES AND ORIGIN IN THE ARRAY 

150 FOR I = 1 TO D 

— 160 LET ACL1. I ) = 3 

— 170 LET ACI>L1> = 2 
180 NEXT I 

— 190 LET ACL1.L1) = 1 
192 

194 REM * NOW INSERT 4'S TO DESIGNATE PLOTTED POINTS 

200 FOR Y = -L TO L 

210 FOR X = -L TO L 

— 220 IF ABS< .5*X+3-Y ) > T THEN 300 

— 230 LET AC X+L 1 » D-CY+L) > = 4 
300 NEXT X 

310 NEXT Y 

312 

314 REM * THE VALUES ARE STORED NOW PRINT 

320 PRINT TABCLDI "Y" 

330 F0R Y = 1 TO D 

340 FOR X = 1 TO D 

3S0 PRINT TABCX)J 

360 IF AtX,Y> = THEN 3B0 

370 G0SUB 500 

380 NEXT X 

390 PRINT 

400 NEXT Y 

410 PRINT TABCDJ "-Y" 

420 STOP 

492 

494 REM * PRINTING SUBROUTINE 

500 IF ACX,Y> = 2 THEN 550 

510 IF ACX.Y) = 3 THEN 580 

520 IF ACX,Y> = 4 THEN 610 

530 PRINT "+"J 

540 RETURN 

550 IF CX-LD/10 = INTC CX-LD/10 ) THEN 590 

560 PRINT "-"I 

570 RETURN 

580 IF CY-LU/10 = INTC CY-L1J/10 > THEN 560 

590 PRINT "!"; 

600 RETURN 

610 PRINT "*"> 

620 RETURN 

692 

700 END 

ing time could be saved by sending the printing head back to the beginning of 
the new line as soon as the last point is printed. This is left as an exercise. 

Three runs of GRAPHS are presented. The first RUN is the straight line of 
the first RUN of program GRAPH2; the second RUN is the parabola of the 

second RUN of GRAPH2; and the third RUN is a circle with radius 10 and 
center at the point (2,- 3). Note that as with the graphs of Sec. 5-2, these graphs 

are distorted by the fact that the space occupied by a single character on the 
printed page is higher than it is wide. 
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RUN 
GRAPH3 



130 LET T = .6 

2?0 IF ABSC -.4*Xr2-X+8-Y ) 

RUN 

GRAPH3 



T THEN 300 



*! 
** * 



I 10 LET D = 29 

130 LET T = 5 

820 IF ABSC CX-2>»2+CY+3>t2-l00 ) > T THEN 300 

RUN 

GRAPH3 
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Summary of Sec. 5-3 

GRAPH3 gives us the ability to deal with many kinds of graphs fairly 
easily. The graph can be oriented in the conventional manner, and we can see 
that the ability to graph more than one relation on one set of axes is a direct 
extension of the current program. 

Problems for Sec. 5-3 

1) Modify GRAPH3 to stop printing when the last character of the cur- 
rent line has been printed. 

2) Modify GRAPH3 to permit two relations to be plotted. Use your pro- 
gram to find the approximate points of intersection of y = 2x 2 
+ x - 1 and y = 3x + 4. 

3) Use the ideas of GRAPH3 to write your name. That is, store points 
to be printed in an array. If you have a long name, maybe you'd 
rather use the word BASIC. This exercise may be a little tedious, but 
fun. 

4) Rewrite GRAPH3 so that the origin does not have to be the center 
point of the array. 

5) We get an interesting effect if instead of plotting points, we plot spaces. 
That is, where there is no point on the graph, print an asterisk, and 
where there is a point, leave the location on the paper blank. Try this. 

6) Modify GRAPH3 to allow different scales for the two axes. Then plot 
a large circle to see how well you can do. 

7) On some systems, the array size allowed is limited enough to make 
some plots not practical if we use the methods of this section. One 
way to program around this is to notice that there is a tremendous 
amount of wasted storage in each element of the array itself. Note 
that for up to six relations GRAPH3 requires only a one digit number 
to store the information required for graphing. Since most computers 
provide at least six digits, by using each of those digits we can increase 
the storage by a factor of six. Write a graphing program to use this 
additional storage space. 

8) One method for obtaining larger graphs is described in problem 7. 
Another procedure would be simply to analyze the graph one line at a 
time. Try this. 



6-1 Introduction 

Let us consider a moving object. At constant speed, the distance traveled 
is simply its speed multiplied by time. If an object travels 15 feet per second for 
5 seconds, it will travel 75 feet. However, it is often true that the speed of an 
object is not constant. Suppose the graph of Fig. 6-1 represents an object in 
nonconstant motion. The distance the object has traveled at time t is the area 
under the graph from the origin to t. For Fig. 6-1 that area is a convenient 
geometric shape. We get Area = A = i|*60*3 = 90 ft. 
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Figure 6-1 



Now suppose a graph does not provide such a convenient geometric shape, 
as in Fig. 6-2. 
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ft/sec 




seconds 
Figure 6-2 

To find the total area of such a shape, we can subdivide the area into many 
smaller segments, find the area of each segment, and sum up the individual areas. 
All we have to do is decide what kind of smaller segments to use and how large 
they should be. Consider Fig. 6-3. 




Figure 6-3 

Figure 6-3 subdivides the area into rectangles so constructed that each one 
falls completely within the desired area. Thus we know that the sum of these 
areas will be less than the actual area. We could alternatively place the rectangles 
as shown in Fig. 6-4. But that would have the opposite effect on the accuracy. 
Another possibility is to construct the rectangles so that the midpoint of the top 




Figure 6-4 
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side is a point of the curve, as shown in Fig. 6-5. Now we have some area in- 
cluded by the rectangles that is not included by the actual curve and some area 
included by the curve but excluded by the rectangles. Thus we expect some 
cancelling-out effect. 




Figure 6-5 

Let us begin by writing a program to sum up the area shown in Fig. 6-5. 
In order to test the program, we can make our first function contain a known 
area. We choose a semicircle derived from the circle (x - 5) 2 + y 2 = 25. 
This circle has a radius of 5 and its center at the point (5,0), as shown in 
Fig. 6-6A, and so the area we expect is \ it r 2 or (rr*5 2 )/2. 




(0,0) 



Figure 6-6A 



The curve we are considering is in fact a function from to 10 for x. 

y 2 = 25 - (x -5) 2 



Solving (x - 5) 2 + y 2 = 25 for y 2 , we get 



and 



y = V25 - (x - 5) 2 



Area Under a Curve 
For the shaded area of Fig. 6-6A, the function is 
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y = f(*) = V25 - (x - 5) 2 

Thus we can easily define a computer function as follows: 

100 DEF FNS(X) = SQR(25 - (X-5)t2)) 

For this problem we can begin by taking 10 intervals one unit wide. Then the 
midpoint of an interval will be x -.5, and the height of the rectangle will be 
FNS(X - .5). See Fig. 6-6B and program AREA1. 




Figure 6-6B 



94 
95 
96 
-~100 
I 10 
120 
130 
13S 
134 
140 
ISO 
152 
154 

160 

162 

164 

170 

180 

182 

190 

200 

RUN 

AREA] 



•> A 



REM * THIS PROGRAM COMPARES THE AREA 0F A 

REM SEMICIRCLE FOUND BY FORMULA AND BY 

REM SUMMING AREAS 0F RECTANGLES. 

DEF FNSCX) = SQRC 25-CX-5>t2 > 

LET A = 3. 14159*25*. 5 

PRINT "AREA 0F SEMICIRCLE BY FORMULA 

LET A = 

REM * THE LENGTH 0F THE BASE IS B 

LET B = 1 

FOR X = 1 T0 10 

REM * THE HEIGHT IS H 
LET H = FNSCX-.5) 

REM * THE AREA 0F CURRENT RECTANGLE IS B*H 
LET A = A + B*H 
NEXT X 

PRINT TAB<3)J "AREA BY SUMMING RECTANGLES ="i A 
END 



AREA 0F SEMICIRCLE BY F0RMULA 
AREA BY SUMMING RECTANGLES 



39.2699 

39.6499 



The relative error is about .38 in 39 or about 1%. We can improve on this 
by taking smaller intervals within the accuracy of the computer. 

Let's rewrite program AREA1 to allow varying widths of intervals. We can 
take the b = 1 out of the x loop and allow the value of b to be read from data. 
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Now since the width of interval will change according to the value of b, the mid- 
point of the interval will be x - 6/2, and the value of x must be successively 
incremented by b, the interval width. While we are at it, let us allow the value of 
x to have a variable range read as data. This is done in lines 140 and 160 of 
AREA2. 



AREA2 

94 REM * THIS PROGRAM SUMS RECTANGLES T0 

95 REM APPROXIMATE AN AREA ALL0WING THE 

96 REM WIDTH 0F THE RECTANGLES T0 BE READ 

97 REM AS DATA. 

100 DEF FNSCX) = SQRC 25-CX-5)»2 > 

110 PRINT "FR0M". "INTERVAL". "T0"» "AREA" 

120 READ B 

130 IF B = THEN 250 

-140 READ F»T 

150 LET A = 

-160 F0R X = F+B T0 T STEP B 

170 LET H = FNSt X-B/2 ) 

180 LET A = A + BOH 

190 NEXT X 

192 

200 PRINT F. B» T. A 

210 G0T0 120 

212 

214 REM 

220 DATA 1.0.10. .5.0.10 

230 DATA .1.0.10. .01.0.10 

240 DATA 

250 END 

RUN 

AREA2 

FROM INTERVAL TO AREA 

1 10 39.6499 

.5 10 39.4051 

.1 10 39.2115 

.01 10 39.26 74 



The results of AREA2 do indeed give successively more accurate approxi- 
mations of the area. 

Now we run AREA2 for the function, 

f(x) = 2x 3 - 2x 2 + x + 5 

from - 3 to 11 for x. For a graph of this function, see Sec. 52. 



100 DEF FNSCX) = 2*Xt3 - 2*Xt2 + X + 5 

220 DATA 1.-3.11. .5.-3.11 

230 DATA .05.-3.11 
RUN 



FROM 


INTERVAL 


T0 


AREA 


-3 


1 


1 1 


6475 


-3 


.5 


1 1 


6494.25 


-3 


.05 


1 1 


6500.62 
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Summary of Chapter 6 

We have developed a routine that approximates the area under a curve for 
functions. The method used is to sum up areas of rectangles whose heights are 
determined by the midpoint of the intervals. (There are several other methods, 
which are left as exercises.) 

Problems for Chapter 6 

1) Find the area enclosed by y = x + 3 and y = x 2 - 8x + 17. 

2) Find the area enclosed by y = - 3x 2 + ix + 2 and the line y = - 3. 

3) Another procedure for finding area under a curve is called the trapezoid 
method. This is done by inscribing trapezoids instead of rectangles 
under the curve. Write a program to use the trapezoid method. 

4) Write a program that begins with a specified width and automatically 
makes the subdivisions smaller until the new approximation does not 
differ from the old approximation by more than some percentage error, 
say .01%. 

5) Write a program to approximate area by making the first interval the 
whole domain and each subsequent interval one half the previous 
interval. Have the computer stop when the percentage change is less 
than, say, .01%. 

6) A method always as accurate and usually more accurate than the trape- 
zoid method is Simpson's rule. Simpson's rule requires an even number 
of intervals and is given by the following (see Fig. 6-7): 

W 

A = - {fx + 4/ 2 + 2/3 + 4A, + • • • + Vn-7 + 4f„-l + fn) 



Write a program to use Simpson's rule. 




Figure 6-7 



7) Use the ideas of this section to find the length of the graphed line of a 
continuous function instead of the area. 
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7-1 Points in a Plane 

In the Cartesian coordinate system, points in a plane are named by ordered 
pairs of real numbers. A point is labeled p(x,y), where the first number is called 
the x-coordinate and the second is called the y -coordinate. As we consider the 
ordered pairs of numbers associated with a point or set of points, many geo- 
metric relationships unfold. For two points in a plane, we can look at the dis- 
tance between them or consider the straight line they determine. For three 
points in a plane, we may be interested in whether or not they fall on a straight 
line, that is, are collinear. If not collinear, then three points determine a tri- 
angle which has many properties of interest. We may examine many other com- 
mon geometric figures such as quadrilaterals, circles, parabolas, etc. It is the 
purpose of this chapter to study some of these topics, using the computer to 
assist us. 

7 2 Pairs of Points 

Consider the two points A(3,5) and B(3, -1), as shown in Fig. 7-1. Clearly 
the distance AB from A to B is six units, usually stated simply as 6. We define 
the distance between two points with the same x-coordinate as the absolute 
value of the difference in y-coordinates. (For two points with the same y- 
coordinate, the distance is defined as the absolute value of the difference in 
% -coordinates.) Thus in Fig. 7-1. 

AB = |5 - (-1)1 = |5 + l|-6. 

Left only with this definition we would have a very limited ability to determine 
distance. We should, however, be interested in determining distance for any 
two points whatever their coordinates. 

78 



Coordinate Geometry 

y 



A(3,5) 



B(3,-l) 



Figure 7-1 
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For the points A(3,5) and B(-l,2), we may find the distance by plotting 
the points and constructing a right triangle, as shown in Fig. 7-2. 



A(3,5) 




Figure 7-2 

Using the Pythagorean Theorem, 

AB 2 = BC 2 + AC 2 



or 



AB = VBC 2 + AC 2 



so that 



AB = V4 2 + 3 2 

AB = V25 

AB = 5 

It is evident that for any two points A(xi,y t ) and B(x 2 ,y 2 ) we have the 
relationships shown in Fig. 7-3. 
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I AC = |y 2 -y, 




Figure 7 3 



Using AB = \/BC 2 + AC 2 , we get 



AB = Vk 2 - *,| 2 + \y 2 - y t \ 2 
but since the square of a number equals the square of its absolute value, we get 



AB - V(*j - *i) 2 + (y 2 - yi ) 2 

This is known as the distance formula. 

We shall now find distances for pairs of points. The distance formula 
translates readily into the BASIC statement: 

200 LET D = SQR ( (X2 - XI) t2) + (Y2 - Yl) t2 ) 

All that remains is to get coordinate pairs read into the computer and results 
printed out. This is done in program DIST1. 



DIST! 

94 
95 
100 
150 
160 
170 
180 
190 
192 
194 
•200 
210 
222 
230 
RUN 
DIST1 



REM * THIS PROGRAM FINDS THE DISTANCE AB 
REM FBR THE C00RDINATES tXl.Yl) AND CX2,Y2> 
PRINT "T0 FIND THE DISTANCE BETWEEN TWO POINTS- 
PRINT 

PRINT "POINT A"J 
INPUT XI.Y1 
PRINT "POINT B"J 
INPUT X2.Y2 

REM * CALCULATE DISTANCE AND PRINT IT 
LET D = SQRt CX2-Xl)t2 + <Y2-Yl>t2 ) 
PRINT "DISTANCE AB ="l D 

END 



TO FIND THE DISTANCE BETWEEN TWO POINTS 

POINT A? 3. 5 
POINT B7-1.2 
DISTANCE AB = 5 
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Program DIST1 works fine for a single pair of points. But suppose we 
had several pairs of points. We may simply request the number of calculations 
desired and use F0R-NEXT, as shown in DIST2. 



DIST3 

94 REM * FINDS DISTANCE F0R PAIRS 0F POINTS 

95 REM PERMITS M0RE THAN ONE SET 0F DATA 

100 PRINT "T0 FIND THE DISTANCE BETWEEN TW0 POINTS" 

110 PRINT 

120 PRINT "N0W MANY PAIRS"! 

130 INPUT N 

132 

140 F0R I = 1 T0 N 

150 PRINT 

160 PRINT "P0INT A"J 

170 INPUT XI. Yl 

ISO PRINT "POINT B"l 

190 INPUT X2.Y2 

192 

194 REM * CALCULATE DISTANCE AND PRINT IT 

-200 LET D = SQR< <X2-XI>t2 + <Y2-Yl)t2 ) 

210 PRINT "DISTANCE AB ="» D 

220 NEXT I 
222 

230 END 
RUN 
DIST2 

T0 FIND THE DISTANCE BETWEEN TWO POINTS 

NOW MANY PAIRS72 

POINT A? 3, 4 
POINT B?0»0 
DISTANCE AB = 5 

POINT A7-3.4. 5.75 
POINT B?3. 125. 2 
DISTANCE AB = 7.52583 



For any two points A and B, it can be shown that the coordinates of the 
midpoint of segment AB are found by taking the average of the corresponding 
coordinates of A and B. Thus the midpoint of AB for A(x x ,y t ) and B(x 2 ,y 2 ) is 

*i + x 2 y t + y 2 
2 ' 2 

It is left as an exercise for the reader to write a program to give coordinates of 
midpoints. 

Where coordinates of two points are known, another property of interest 
is the slope of the line they determine. The slope is the ratio of the change in 
^-coordinates to the change in x-coordinates, or 

oi y * ~ yi 
Slope = m = 

x 2 ~ Xi 
Thus for A(l,3) and B(5,6), 
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6-3 3 

m = = — 

5-1 4 

andforA(3,-4)andB(l,6), 

6 ~ (-4) 10 

m = = = _5 

1-3 -2 

Note that slopes up and to the right are positive and slopes up and to the 
left are negative. A short program can easily be written to make the above cal- 
culation, as shown by program SL0PE. 

SL0PE 



100 


PRINT "1 


rHIS PROGRAM FINDS THE SLOPE 0! 


110 


PRINT 




120 


PRINT "H0W MANY PROBLEMS"; 


130 


INPUT N 




140 


F0R I = 1 


1 T0 N 


142 






150 


PRINT 




160 


PRINT 


"P0INT A") 


170 


INPUT 


XI. Yl 


180 


PRINT 


"POINT B"J 


190 


INPUT 


X2.Y2 


192 






194 


REM * CALCULATE SLOPE AND PRINT IT 


230 


LET M 


= CY2-Y1 )/<X2-Xl ) 


240 


PRINT 


"SLOPE ="J M 


250 


NEXT I 




252 






260 


END 




RUN 






S1.0PE 





THIS PROGRAM FINDS THE SLOPE OF AB 

H0W MANY PR0BLEMS72 

POINT A?0»0 
P0INT B?4»5 
SLOPE = 1.25 

POINT A?3,6 
POINT B?5>-3 
SLOPE =-4.5 



Look at line 230 in program SL0PE. Note that we instruct the computer 
to perform division. When two points have the same :k -coordinate, division by 
zero is required, which is a mathematically, and thus computationally, unde- 
fined condition. The program should be modified to test the value of x 2 ~ x x 
before allowing division to take place. This is left as an exercise for the reader. 

The idea that two points determine a line has been referred to several 
times. It can be shown that any line in a plane can be described by an equation 
of the form ax + by + c = 0, where a, b, and c are constants. This is called 
the general form of the equation. It can also be shown that all nonvertical lines 
can be described by an equation of the form y = mx + k, where m is the slope 
as defined earlier and k is the value of y when x = 0, that is, the value of y 
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Figure 7-4 

where the line crosses the y-axis, called the ^-intercept, as shown in Fig. 7-4. 
The form y = mx + k is called the slope-intercept form. 

If we are given two points, we can find m in y = mx + k. Then we can 
get a value for k by solving y = mx + k for k to get k = y - mx. With a 
value for m and a value for k, we can write the equation of the line in slope- 
intercept form by using program LINE1. 



LINE1 



94 
95 
96 
97 
100 
HO 
120 
130 
140 
150 
152 
154 
- 160 
170 
180 
182 
184 
185 
190 
200 
210 
220 
222 
224 
230 
240 
250 
RUN 
LINE 



REM * THIS PROGRAM PRODUCES THE EQUATION 0F A LINE 
REM IN SLOPE- INTERCEPT FORM GIVEN COORDINATES FOR 
REM TWO POINTS 0N THE LINE. THE PROGRAM USES X = 
REM A CONSTANT FOR VERTICAL LINES 
PRINT "EQUATION OF A STRAIGHT LINE IN- 
PRINT "SLOPE- INTERCEPT FORM GIVEN TWO POINTS" 
READ XI, Yl, X2.Y2 

IF XI = .001 THEN 250 
PRINT 
PRINT "C"J XI J "."; Y1J ">>C"J X2J ","> Y2J '*>" 

REM * TEST FOR DEFINED SLOPE 

IF X2-X1 <> THEN 190 
PRINT "EQUATION IS! X ="t XI 
GOTO 120 

REM * CALCULATE SLOPE AND INTERCEPT 

REM THEN PRINT SOLUTION EQUATION 

LET M = CY2-Y1 J/CX2-X1 ) 

LET K = Yl - M*X1 

PRINT "EQUATION IS: Y =") MJ "*X+("J K; ")" 

GOTO 120 



REM 
DATA 
DATA 
END 

1 



3.4. 
.001 



5,6, - 
.0, 0,0 



EQUATION OF A STRAIGHT LINE IN 

SLOPE- INTERCEPT FORM GIVEN TWO POINTS 



< 3 ,4 ), ( 5 

EQUATION IS: Y = 1 



, 6 
*X+C 1 



(-1 . 6 ),(-l 
EQUATION IS: X =-1 
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Summary of Sec. 7-2 

For two points we have found the coordinates of the midpoint of the seg- 
ment they determine. We have found the distance, the slope, and the equation 
of the line in slope-intercept form. 

Problems for Sec. 7-2 

1) Modify program SL0PE to accommodate data for which the slope is 
undefined. 

2) Write a program to calculate the coordinates of the midpoint for pairs 
of points. 

3) Modify program LINE1 to treat a horizontal line as a special case. 

4) Modify program DIST1 or DIST2 to give the distance in simplified 
radical form. 

5) Modify LINE1 to give the slope as a decimal, integer, or fraction 
reduced to lowest terms as appropriate. 

6) For an equation in slope-intercept form, have the computer give a 
table of (x,y) values suitable for graphing. 

7) For an equation in general form, have the computer give a table of 
(x,y) values suitable for graphing. 

8) For a set of n points, write a program to give equations for all pos- 
sible pairs of points. Enter the n points as DATA and store them in 
a 2 by n array or in a pair of lists. 

9) For problem 8, have the computer eliminate duplicate points and 
therefore duplicate lines in the output. 

10) Write a program to write the equation of a line, given two points, in 
ax + by + c = form. Treat vertical and horizontal lines as special 
cases. 

11) Modify program LINE1 to find the slope and y-intercept as fractions 
reduced to lowest terms, if appropriate. 

7-3 Parallel and Perpendicular Lines 

What happens when we begin to think about more than one line in a plane? 
Lines either intersect or they don't. If they don't, then the lines are parallel, 
in which case their slopes are equal unless the lines are vertical, making both 
the slopes undefined. If the lines intersect, then they might be perpendicular. 
What about the situation for perpendicular lines? Consider Fig. 7-5. 

Note that the slope of li is positive and the slope of 1 2 is negative. Thus, 

di 
«i = -J (7-1) 



and 



m 2 = - -f (7-2) 



Since h and h are perpendicular, right triangles ABC and AB C are similar and 

(7-3) 



rfi _ t 

t d 2 
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Figure 7-5 



because ratios of lengths of corresponding sides of similar triangles are equal. 
Since 



we get 

jf 1_ 

d 2 m 2 

Substituting from (7-1) and (7-5) above into (7-3), we get 

1 



which gives 



m x m.i = -1 



(7-4) 



(7-5) 



(7-6) 



(7-7) 



That is, for perpendicular lines having slopes mi and m 2 , the product of 
the slopes is - 1, or the slopes are negative reciprocals of each other. 

We can use the parallel and perpendicular properties for a variety of prob- 
lems. We can test lines to see if they are either parallel or perpendicular. We can 
find the equation of a line through a fixed point parallel or perpendicular to 
another line. We can write the equation of a line which is the perpendicular 
bisector of a segment. 

We shall now present a program to give an equation for the line through a 
given point perpendicular to the line determined by a pair of given points. There 
are many conditions that we must account for. Suppose the given points deter- 
mine a vertical or a horizontal line? We might even be given the same point 
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Start 
PERP 



I 



'READXO,YO 
solution line 
to contain 
this point 




READX1.Y1, X2.Y2 

The points are (XI, YD 
and(X2,Y2) 



Begin 

equation 

subroutine 



I 



/Print headings 
and coordinates/ 




G0SUB 

equation 
subroutine 




/PRINT 

"N0T unique" 

The points 
coincide 



V 



V 



Calculate slope 
and y-intercept 
of solution line 



i_ 



m 



PRINT 

'X=";XO 

Solution line 
is vertical 



PRINT 
"Y="i YO 
Solution line 
is horizontal 



/Print the 
equation in 
slope- intercept/ 
form 




Figure 7-6 Flowchart for finding the equation of a line given one point on 
the line and two points determining a line perpendicular to it. 
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twice. A flowchart should be helpful in organizing these conditions. See Fig. 
7-6 and program PERP. 



94 REM * THIS PROGRAM ATTEMPTS T0 WRITE AN EQUATION 

95 REM FOR A STRAIGHT LINE CONTAINING THE GIVEN POINT 

96 REM CXO.YO) AND PERPENDICULAR TO THE LINE 

97 REM DETERMINED BY THE GIVEN POINTS CX1,Y1> 

98 REM AND <X2,Y2). 
100 READ XO.YO 

110 IF XO = .001 THEN 800 

120 READ XI. Yl. X2.Y2 

130 PRINT 

140 PRINT "LINE THROUGH ("J 

150 PRINT "PERPENDICULAR TO 

160 PRINT "("I X1J "."J Yl! 

170 PRINT " EQUATION IS: " 

180 GO SUB 500 

190 GOTO 100 

492 

494 REM * SUBROUTINE TO DETERMINE AND PRINT EQUATION 

500 LET V = Y2-Y1 

510 LET H = X2-X1 

520 IF V <> THEN 560 

530 IF H <> THEN 590 

5 32 

534 REM * THE TWO GIVEN POINTS COINCIDE 

540 PRINT "NOT UNIQUE" 

550 RETURN 

560 IF H <> THEN 610 

562 

564 REM * SOLUTION LINE IS HORIZONTAL 

570 PRINT "Y =") YO 

580 RETURN 

582 

584 REM * SOLUTION LINE IS VERTICAL 

590 PRINT "X ="J XO 

600 RETURN 

602 

604 REM * DEFINED N0N-ZER0 SLOPE 

610 LET M = V/H 

620 LET MO = -1/M 

630 LET K = YO - MO*XO 

640 PRINT "Y ="J MOJ "*X+t"J K) ")" 

650 RETURN 

652 

704 REM 

710 DATA 1.2. 4.7,4.7. 4,3. -1.9.4,5 

720 DATA 5,-2, 6,4,6,-8, 3,8, 18,5,-11,5 

730 DATA .001,0 

800 END 



RUN 
PERP 



LINE THROUGH CI ,2 ) 

PERPENDICULAR TO THE LINE THROUGH POINTS 
C 4 ,7 ), < 4 ,7 > 

EQUATION IS: NOT UNIOUE 

LINE THROUGH C 4 ,3 > 

PERPENDICULAR TO THE LINE THROUGH POINTS 
C- 1 ,9 ). C 4 .5 ) 

EQUATION IS: Y = 1.25 *X+C-2 ) 

LINE THROUGH C 5 .-2 ) 
PERPENDICULAR TO THE LINE THROUGH POINTS 
< 6 .4 ), ( 6 ,-8 ) 
EQUATION IS: Y =-S 



88 Advanced BASIC 



LINE THROUGH (3 ,8 ) 
PERPENDICULAR T0 THE LINE THR0UGH POINTS 
CIS ,5 I, <- 1 1 ,5 ) 
EQUATION IS! X = 3 



Summary of Sec. 7-3 

We have examined pairs of lines in a plane. If they are parallel and non- 
vertical, their slopes are equal. If two lines are perpendicular and neither is 
vertical, the piuuuct of their slopes is - 1. 

Problems for Sec. 7-3 

1) Change program PERP to write the equation of the new line parallel 
to the line determined by the given pair of points. 

2) Write a program to give the equation of the perpendicular bisector of a 
segment, given its endpoints. 

3) For two pairs of points entered as DATA, have the computer deter- 
mine if the specified lines are parallel or perpendicular. Be sure to 
permit vertical lines. 

4) For two lines given in ax + by + c = form, have the computer 
determine whether the lines are parallel, perpendicular, or neither. 

7-4 Point of Intersection of Two Lines 

We can define two lines to work with in several ways. One is to give a pair 
of points to define each line. Another is to give an equation in the form y = 
mx + k by specifying m and k for each line. Yet another is to give equations in 
the form ax + by + c = by specifying (a,b,c) for each line. We may become 
more familiar with the general form by working with data for equations in the 
form (a,b,c). 



Given two lines, 



a x x + b x y + Cj =0 (7-8) 



and 



a 2 x + b 2 y + c 2 = (7-9) 

and the need to find the point of intersection, we must find a coordinate pair 
(x,y) that fits both equations. That is, we have to solve the equations simultan- 
eously. Since the computer does not "do algebra," we will have to. 
Rearranging the above equations, we get 

a t x + b x y = -ci (7-10) 

a 2 x + b 2 y = -c 2 (7-11) 

Multiplying Eq. (7-10) through by ~a 2 and Eq. (7-11) by a, gives 

-a 2 a x x - a 2 b x y = a 2 c x (7-12) 

a 2 a t x + a x b 2 y = -a x c 2 (7-13) 

Adding Eqs. (7-12) and (7-13) produces 
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aib 2 y - a 2 biy = o 2 c t - a t c 2 (7-14) 

Factoring, we get 

y{a i b 2 - a 2 b x ) = a 2 c x - a x c 2 (7-15) 

Dividing both sides by a x b 2 - a 2 bi leaves 

a 2 c l - a x c 2 



a \b 2 ~ a 2 b 1 

Following a similar procedure to solve for x, we get 

bic 2 - b 2 c 1 

x = 

b?a, - b,a 2 



(7-16) 



(7-17) 



Let's write a program to use the above results to find the point of inter- 
section, if it exists. Note that in Eqs. (7-16) and (7-17) the denominators are 
equal. So we may use the BASIC statement, 

180 LET D = A1*B2 - A2*B1 

This will allow us to divide the numerators from Eqs. (7-16) and (7-17) by D to 
obtain the values for y and x, respectively, unless D happens to equal zero. This 
situation would require division by zero, which means that the value is either 
indeterminant or undefined depending on whether the numerator is zero or not. 
Thus, if the value of D is not zero, we have a unique intersection, which we may 
calculate using Eqs. (7-16) and (7-17). If D equals zero, we may obtain more 
information about the two lines as outlined in the following discussion. 
D = means the following: 

ai b 2 - a 2 bi = (7-18) 

aib 2 = a 2 b x (7-19) 



and therefore 



which may be written 



Qi a 2 
b x b 2 



(7-20) 



To see the significance of this, let's look at the original equations, (7-8) 
and (7-9). They a.xea 1 x + b x y + c t = 0anda 2 * + b 2 y + c 2 = 0. Solving 
each fory we get: 

<i\X C\ 

y = - -j- - zr (7-21) 

and 

a 2 x c 2 
y - - JL - -2 (7-22) 

b 2 02 
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Now the equations are in y = mx + k form. Notice that the slope of line 1 in 
Eq. (7-21) is -ai/fej and of line 2 in Eq (7-22) is -a 2 \b 2 unless 6, or b 2 is zero. 
Clearly by multiplying both sides of Eq. (7-20) by - 1 we get 

______ (7 . 23) 

Since the two sides of Eq. (7-23) are the slopes of the lines in Eqs. (7-21) and 
(7-22), that makes line 1 parallel to line 2. To sum up, if D = 0, then the lines 
are parallel and there is no solution unless b x or b 2 is zero. 

M*>"r otm»no n J-UnJ- „:*-„.... „ 7. :_ i — __ ~ - - . . — 

" v " ^•-*i~'i^'-'_ ;__:* ^iLiici u i *w*i o'2 lu —"iO VVliUIi _ \J, ijOGKiug aZ _iq. 

(7-19), if 6, ==0 then either a, or 6 2 is also zero. Now, if Eq. (7-8) is not 
meaningless, that means that b 2 must also be zero. If 6, and b 2 are both zero, 
we get 

a x x + ci =0orx = -— (7-24) 

a 2 x + c 2 = or x = - — (7-25) 

a 2 

in which case both lines are vertical because x is constant. If what we are look- 
ing for is the point of intersection, there won't be any unless the two equations 
define the same line, in which case all points on one line will also lie on the other. 
We really have three levels of information to test for. First we want to 
know if the lines intersect in a single point. If they do intersect in a single point, 
then we want the coordinates of that point. If they don't intersect in a single 
point, then it is useful to know whether or not they are vertical, because if one 
is, they both are. And finally, we can determine whether or not they coincide. 
If they coincide, the solution is indeterminant. If they do not coincide and 
are parallel, we say the equations are inconsistent. A flowchart should help to 
sort out all of the above considerations. See Fig. 7-7 and program P0INT. 




I ptfiNT J 



READT 
to determine 
end of data 
condition 




Figure 7-7 Flowchart for program POINT (cont'd on next page) 



/READ Al.BI.CI,/ 

A2.B2.C2, 
coefficients for/ 
two equations 



I 



Print headings 
and the 
equations in 
general form 



M 



D = AI*B2-A2*B1 
Calculate the value of 
the denominator to be 
used later 




M 



1 = A2*C1 -AI-X-C2 
N2=BI#-C2-B2*CI 
X =N2/D 
Y = N1/D 
calculate solution 



v 



PRINT SOLUTION IS: 

("iXiV'iYi")" 
output coordinates 
of solution point 
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P0INT 

94 REM * THIS PR0GRAM FINDS THE P0INT 0F INTERSECTION 

95 REM FOR TW0 LINES GIVEN IN AX+BY+C=0 F0RM. HANDLES 

96 REM INDETERMINANT AND INCONSISTENT CASES. 
100 READ T 

110 IF T = THEN 500 

112 

114 REM * READ COEFFICIENTS F0R B0TH LINES 

120 READ Al.Bl.Cl. A2.B2.C2 

130 PRINT 

138 

140 PRINT TABU0)J "LINES" 

160 PRINT TAB<10>J "AND" 

170 PRINT A2J "*X+<"J B2J ")*Y*C"J C2J ") = 0" 

172 

174 REM * IF A1*B2-A2*B1 <> THEN THERE IS 

175 REM A UNIQUE SOLUTION 
180 LET D = A1*B2 - A2*B1 
190 IF D <> THEN 300 
192 

194 REM * WE COULD TEST FOR B2 = WITH THE SAME RESULT 

200 IF Bl = THEN 240 

210 PRINT "NON-VERTICAL "J 

220 IF Cl/Bl = C2/B2 THEN 280 

230 G0T0 260 

240 PRINT "VERTICAL "J 

2S0 IF Cl/Al = C2/A2 THEN 280 

260 PRINT "PARALLEL" 

270 GOTO 100 

280 PRINT "COINCIDENT" 

290 GOTO 100 

292 

294 REM * SOLUTION EXISTS - CALCULATE AND PRINT IT 

300 LET Nl = A2*C1 - A1*C2 

310 LET N2 = B1*C2 - B2*C1 

320 LET X = N2/D 

330 LET Y = Nl/D 

340 PRINT "SOLUTION ISl C"J XJ "."J YJ ")" 

350 GOTO 100 

352 

394 REM 

400 DATA 1. 1.1.1. 2.2.2 

410 DATA 1. 1.2.3. 4.5.6 

420 DATA 1. 3.0.4. 7.0.-8 

430 DATA 1. 5.3.10. 10.6.-3 

440 DATA 

500 END 



RUN 
POINT 



LINES 

1 *X+C 1 )*Y+C 1 ) = 

AND 

2 *X+C 2 )*Y+( 2 ) = 
N0N- VERTICAL COINCIDENT 

LINES 
1 *X+C 2 )*Y+C 3 ) = 

AND 
4 *X+( 5 >*Y+C 6 ) = 

SOLUTION IS: C 1 .-2 ) 
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LINES 








3 *X*< )*Y+< 


A 


) 


= 


AND 








7 *X+C >*Y+<- 


•8 


) 


= 


VERTICAL PARALLEL 








LINES 








5 *X+C 3 >*Y+C 


10 


) 


= 


AND 








10 *X+C 6 >*Y+<- 


■3 


) 


= 


NON-VERTICAL PARALLEL 









Summary of Sec. 7-4 

We have found the intersection of two lines for which the equations are 
given in standard form. Consideration has been given to the special cases of 
parallel and coincident lines. 

Problems for Sec. 7-4 

1) Write a program to find the intersection of two lines with equations 
given in slope-intercept form. 

2) Write a program to find the intersection of two lines given two points 
on each line. 

3) Write a program to find the distance from a point to a line, given the 
equation of the line in ax + by + c = form. You may use 

\ax + by + c\ 
d 



y/a 2 + b 2 

4) Write a program to find the distance from a point to a line, given two 
points on the line. 

7-5 Three Points in a Plane 

If we are given two points, we know that they lie on a straight line, but if 
we are given three points, they may or may not lie on a straight line, that is, they 
may or may not be collinear. If they are not collinear, there are many questions 
we may ask. 

Let us look at three points, A(*i , y i ), B(x 2 , y 2 ) and C(x 3 , y 3 ), to deter- 
mine if they are collinear. Suppose for the moment that if they are, the line 
containing them is not vertical. One way to see if they are collinear is to look 
at the slope of AB and the slope of BC. If the two slopes are equal, then the 
points are on a single line. 

Now suppose that we select points (1, 2), (1, 4) and (2, 3) as DATA. 
Clearly the slope calculation will produce an undefined condition due to an 
attempt to divide by zero. We need to check for equal a: -coordinates. We need 
only check x t = x 2 and x 2 = x 3 . lix l = x 2 , what about x x - x 2 1 Notice 
that x x - x 2 would be zero. Now we see that if (xj - x 2 )(x 2 - x 3 ) = 0, 
then either AB or BC, or both, are vertical segments. Or, to put it another way, 
if (xi - x 2 ){x 2 - x 3 ) is not zero, then neither AB nor BC is vertical, and it is 
safe to instruct the computer to calculate the slopes of both segments. See 
especially line 190 in program C0LIN. 
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94 REM * THIS PROGRAM DETERMINES WHETHER 0R NOT 

95 REM THREE P0INTS IN A PLANE ARE C0LLINEAR. 

96 REM IT ALL0WS FOR POINTS IN A VERTICAL LINE. 
100 READ T 

110 IF T = THEN 900 

120 PRINT 

130 READ XI. Yl, X2.Y2, X3.Y3 

140 PRINT "{"I X1J "»"J Yll ")»"J 

150 PRINT "("J X2J "»"J Y2J '•) AND "J 

160 PRINT "("I X3I "."I Y3J ")" 

180 LET D2 = X2-X3 

loo 

184 REM * IF D1*D2 N0N-ZER0 THEN NEITHER 

185 REM SEGMENT IS VERTICAL 
-190 IF D1*D2 <> THEN 300 

200 IF Dl <> THEN 400 

210 IF D2 <> THEN 400 

212 

214 REM * AT THIS P0INT B0TH SEGMENTS ARE VERTICAL 

220 PRINT "VERTICALLY C0LLINEAR" 

230 G0T0 100 

292 

294 REM * CALCULATE B0TH SLOPES 

300 LET Ml = (Yl-Y2)/Dl 

310 LET M2 = (Y2-Y3>/D2 

312 

314 REM * IF SLOPES NOT EQUAL THEN POINTS N0N-C0LLINEAR 

320 IF Ml <> M2 THEN 400 

330 PRINT "C0LLINEAR" 

340 GOTO 100 

400 PRINT "NON-C0LLINEAR" 

410 G0T0 100 

492 

494 REM 

500 DATA 1, 6.5, 0,7, -9,10 

510 DATA 1, 1,2, 3,4, 5,7 

520 DATA 1, 1,2. 1,4, 2,3 

530 DATA 1. 5.2. 5.-3. 5.50 

540 DATA 

900 END 

RUN 

COLIN 



C 6 ,5 >,C ,7 ) AND (-9 

C0LLINEAR 

t 1 ,2 >.C 3 ,4 ) AND ( 5 

NON-C0LLINEAR 

CI .2 )»( 1 ,4 > AND C 2 

N0N-C0LLINEAR 

(5 ,2 )»( 5 ,-3 ) AND ( 5 

VERTICALLY C0LLINEAR 



Triangles {The Noncollinear Case) 



It should be clear that if three points in a plane are noncollinear, they are 

.op r\f f> f^ionnlo TVi-ii Koi«« +V.O «nfo T.ro U«»m « „ r V„l„ ~„.,r „~ll„.,f :„-, ^f 



properties to consider. To name only a few possibilities, we can calculate the 
area using Hero's formula; we can test to see if the triangle is acute, right, or 
obtuse; we can find the centroid where the medians intersect; we can find the 
orthocenter where the altitudes intersect; and we can find the lengths of the 
altitudes. 
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Suppose we first look for a right triangle. There are at least two proce- 
dures we might use. One is to test the lengths of the three sides using the 
Pythagorean Theorem, c 2 = a 2 + b 2 . Another is to test the slope of each pair 
of sides to see if their product is - 1 or if one side is vertical and another is hori- 
zontal. Either procedure will be instructive. Let's first investigate Pythagoras 
with the aid of Fig. 7-8. 




B(x 2 ,y 2 ) 



C(x 3l y 3 ) 



Figure 7-8 



When we consider c 2 = a 2 + b 2 we assume that the hypotenuse has 
length c. Suppose we find that a is the length of the hypotenuse or that b is. 
The only safe bet is to test them all. This could be done by putting the follow- 
ing in an IF-THEN statement to test if AB is the hypotenuse for points A(xj, 
y 1 ),B(x 2 ,y2)andC(x 3 ,y 3 ): 

Y3)t2) 



(XI - X2)t2 + (Yl - Y2)t2 = ((X2 



X3)t2 + (Y2 

+ ((X3 - Xl)t2 + (Y3 - Yl)t2) 



and by then putting in two similar statements to see if BC or CA might be the 
hypotenuse. Such a procedure ought to work, but this statement is excessively 
long and cumbersome and we aren't really using the power of the computer to 
do repeated operations. It seems worthwhile to devise a way of storing the co- 
ordinates so that we can use computer loops to move around the triangle instead 
of writing new statements for each side being considered. That seems to suggest 
subscripts and lists. So instead of XI, X2, and X3 we are going to use X(l), 
X(2), and X(3). And for Yl, Y2, and Y3 we use Y(l), Y(2), and Y(3), as shown 
in Fig. 7-9. 

Often when trying a new procedure on a new program, it is a good idea to 
do the work piecemeal. If we put a lot of new things into a program simulta- 
neously, errors are harder to find than if we go in steps. Consider program 
PYTH1 for simply reading coordinates in and printing them out. 
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A(X(1),Y(t 




(X(2),Y(2» 



C(X(3),Y(3)) 



Figure 7-9 



94 


REM * THIS IS A TRIAL PR0GRAM TO SIMPLY 


READ 


95 


REM COORDINATES 


FOR THE VERTICES OF 


A 


TRIANGL 


96 


REM AND 


PRINT THEM OUT AGAIN USING 


AN 


X LIST 


97 


REM FOR 


X COORDINATES AND A Y LIST 


FOR 


Y 


98 


REM COORDINATES 








100 


DIM X<3>. 


Y<3) 








110 


READ T 










iao 


IF T = 


THEN 


900 






130 


PRINT 










132 












134 


REM * READ COORDINATES IN LINES 140 


T0 


160 


140 


FOR P = 1 


TO 3 








150 


READ XCP>, Y<P> 






160 


NEXT P 










162 












164 


REM * PRINT COORDINATES IN LINES 170 


TO 


190 


170 


PRINT "t 


"1 XC1>! 


","> Y<1)J ">»"J 






180 


PRINT "( 


"J XC2)J 


"."J YC2>J ") AND 


"t 




190 


PRINT "( 


"1 XC3JJ 


"»"; YC3)I ■■)■• 






200 


GOTO 110 










792 












794 


REM 










800 


DATA 1, 


1.2. 


5,-1. 6.15 






810 


DATA I, 


0.0. 


0.3. 4.0 






820 


DATA 










900 


END 










RUN 












PYTH1 










C 1 


» 2 


)» C 5 


»-l ) AND ( 6 


, 


15 ) 


C 


» 


>» C 


» 3 ) AND C 4 


p 


> 



To consider each side in turn as a possible hypotenuse, we want to work 
our way around the triangle. First we will use the distance from point 1 to point 
2, then the distance from point 2 to point 3, and finally the distance from point 
3 to point 1. See the columns labeled "Hypotenuse" in Table 7-1. 
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Hypotenuse 




1st Leg 




2nd Leg 




Segment i 


Points 


Segment 


Points 


Segment 


Points 


AB 
BC 
CA 


1,2 
2,3 
3,1 


BC 
CA 
AB 


2,3 

3,1 
1,2 


CA 
AB 
BC 


3,1 
1,2 
2,3 



Looking at Table 7-1, we see a progression across, from points 1 and 2 to 
points 2 and 3 and then to points 3 and 1 for hypotenuse AB. For hypotenuse 
BC, we go from points 2 and 3 to points 3 and 1 and then to points 1 and 2. 
This pattern is completed by considering CA as the hypotenuse. If we can sim- 
ply go 1-2-3-1-2-3, we can get all of the pairs we need using loops and subscripts. 

Consider the following four lines of BASIC code: 



200 FOR P = 1 T0 3 
210 LET XCP+3) = XCP> 
220 LET YCP+3) = YCP) 

230 NEXT P 



These four lines have the effect of copying the three points 1, 2, and 3 
into locations 4, 5, and 6, respectively, of the X and Y lists. This will enable us 
to organize the testing of each side in turn for being the hypotenuse of triangle 
ABC, as shown in TABLE 7-1. See lines 200 to 230 in PYTH2. 



94 

95 

96 

97 

9S 

99 

100 

110 

120 

130 

132 

134 

140 

150 

160 

162 

164 

170 

180 

190 

192 

194 

200 

210 

220 

230 

232 

234 

235 



REM * THIS PROGRAM STORES THE C0RDINATES 0F THE 
REM VERTICES 0F A TRIANGLE IN THE FIRST THREE 
REM ELEMENTS 0F X AND Y LISTS AND DUPLICATED 
REM IN THE NEXT THREE ELEMENTS 0F THOSE LISTS 
REM T0 FACILITATE USE OF SUBSCRIPTS AND L00PS 
REM T0 TEST PROPERTIES 0F THE TRIANGLES. 
DIM XC6)> YC6) 
READ T 

IF T = THEN 900 
PRINT 

REM * READ COORDINATES IN LINES 140 TO 160 
FOR P = 1 T0 3 

READ XCP>» YCP) 
NEXT P 

REM * PRINT C00RDINATES IN LINES 170 TO 190 
PRINT "<"1 X(l)l ","> YC1)J ")."} 
PRINT "C"l X<2)J ••,"! YC2)J ") AND " I 
PRINT "C"J XC3)S "•"! YC3>) ")" 

REM * DUPLICATION TAKES PLACE IN LINES 200 TO 230 
FOR P = 1 T0 3 

LET XCP+3) = XCP) 

LET YCP+3) = YCP) 
NEXT P 

REM * WE PRINT THE CONTENTS 0F THE X AND Y LISTS 
REM FOR DEMONSTRATION PURPOSES ONLY 
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240 


PRINT " 


VALUES 0F 


X L00K LIKE 


250 


F0R P = 


1 T0 6 




260 


PRINT 


X(P)J 




270 


NEXT P 






280 


PRINT 






282 








290 


PRINT "' 


VALUES 0F 


Y L00K LIKE 


300 


FOR P = 


1 T0 6 




310 


PRINT 


Y<P>J 




320 


NEXT P 






330 


PRINT 






332 








340 


an T3 iio 






792 








IV A 


Ktfl 






800 


DATA 1, 


1.2. 


5.-1. 6.15 


810 


DATA 1. 


0.0. 


0.3. 4.0 


820 


DATA 






900 


END 






RUN 








PYTH2 







THIS IN THE X LIST" 



THIS IN THE Y LIST" 



CI .2 ).C 5 .-1 ) AND ( 6 

VALUES 0F X L00K LIKE THIS IN THE X LIST 
15 6 15 6 

VALUES 0F Y L00K LIKE THIS IN THE Y LIST 
2-1 15 2 -1 15 

CO .0 ).( .3 ) AND C 4 

VALUES 0F X L00K LIKE THIS IN THE X LIST 
4 4 

VALUES 0F Y L00K LIKE THIS IN THE Y LIST 
3 3 



Now all that remains Is to calculate the lengths of the sides of the triangle 
and to store them in such a way that we may test in sequence around the tri- 
angle, trying each side as possible hypotenuse. This is accomplished by lines 300 
to 350 in PYTH3. Note that line 340 does for the lengths of sides what 210 and 
220 do for the coordinates of the vertices. 



94 

95 

96 

100 

110 

120 

130 

132 

134 

140 

150 

160 

162 

164 

170 

<so 

190 
192 
194 
200 
210 
220 
230 
232 



REM * THIS PROGRAM DETERMINES FROM THE COORDINATES 
REM 0F THE VERTICES OF A TRIANGLE WHETHER OR 
REM NOT IT IS A RIGHT TRIANGLE 
DIM XC6), YC6). DC6) 
READ T 



IF 
PRINT 



T = THEN 900 



IN LINES 140 TO 160 



REM * READ COORDINATES 
FOR P = 1 TO 3 

READ X(P). YCP) 
NEXT P 

REM * PRINT COORDINATES IN LINES 170 T0 190 

PRINT "C"J XC1)J "."J YC15J "),") 

prtmt "f"i X(2>* ".-".' YC2>* "> AND "? 

PRINT "("J XC3)> "."; Y<3); ">" 



REM * 

F0R P 

LET XCP+3) = 
LET YCP+3> = 

NEXT P 



DUPLICATION TAKES PLACE 
= 1 TO 3 

: X(P) 

Y«P) 



IN LINES 200 TO 230 
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REM * ENTER LENGTHS IN THE D LIST IN THE 
REM SAME F0RMAT AS USED FOR COORDINATES IN 
REM THE X AND Y LISTS) THAT IS - DUPLICATED 
FOR J = 1 TO 3 

LET A = XCJ)-X<J+1> 

LET B = YCJ>-YCJ+1> 

LET D<J) = SQRC At2+Bt2 ) 

LET DCJ+3) = DCJ) 
NEXT J 

REM * NOW TEST EACH SIDE FOR BEING A HYPOTENUSE 
F0R P = 1 TO 3 

IF DCP>t2 = D(P+l)i2 ♦ DCP*2)»2 THEN 500 
NEXT P 

REM * IF THE TEST FAILS FOR ALL THREE SIDES THEN 
REM WE HAVE A N0N-RIGHT TRIANGLE 
PRINT "NOT A RIGHT TRIANGLE" 
GOTO 110 

PRINT "RIGHT TRIANGLE WITH HYPOTENUSE DETERMINED BY" 
PRINT "POINTS! C"J XCP5J "»"1 Y<P>) ") AND "J 
PRINT "C"» XCP+DJ ","> YCP+1X ")" 
GOTO 110 

REM 

DATA 1, 1,2. 5,-l> 6.15 

DATA 1. 0*0. 0,3. A,Q 

DATA 

END 



(1 ,2 ),< 5 .-1 ) AND < 6 . 15 

NOT A RIGHT TRIANGLE 

(0 , 1,(0 ,3 ) AND (A , 

RIGHT TRIANGLE WITH HYPOTENUSE DETERMINED BY 
POINTS: CO .3 ) AND t A , > 



Summary of Sec. 7-5 

We have examined sets of three points for collinearity. We have looked at 
the triangle formed by noncollinear points to determine whether or not it is a 
right triangle. In order to do this, we have devised a technique of storing co- 
ordinates in lists to take advantage of repeatable program statements using 
loops. 

Problems for Sec. 7-5 

1) In program C0LIN, provide for treating points on a horizontal line as 
a special case. 

2) Write a program to find the intersection of two altitudes of a triangle. 

3) Write a program to find the intersection of two medians of a triangle. 

4) Modify program PYTH3 to classify triangles as acute, equiangular, 
right, or obtuse. 

5) Have the computer print all Pythagorean Triples for a hypotenuse less 
than 101. Pay particular attention to efficiency here. 

6) Write a program to determine if four points are collinear. 

7) Write a program to determine if n points are collinear. 
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8) Write a program to compute the area of a triangle given the co- 
ordinates of the three vertices and using Hero's formula: 



A = \Js(s - a)(s - b)(s - cj where s = (a + b + e)/2 

9) Write a program to calculate the area of a triangle by finding the 

length of an altitude using the methods of Sec. 7-4. 
10) Write a program to test triangles for right triangles by determining the 

slope of all three sides to see if the product is - 1 for any pair. You 

will have to treat vertical lines as a special case, 
ii) Given three noncoilinear points, find the center and radius of the 

circle they determine. 
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POLYNOMIALS 



8-1 Introduction 

A real polynomial in x can be defined as any expression that can be 
written in the following form: 

a n x n + a n ^x n ' 1 + ••• + a 2 x 2 + a t x + a 

For a given value of x,n is a non-negative integer and the a's are constant 
values. Examples of polynomials are 

2x; 3x 2 + 2; 4; 5x u + 3x 3 - 2 

The highest exponent of x, called n, is the degree of the polynomial. 

Polynomials are of interest to the mathematician and scientist alike. 
The distance an object travels in a gravitational field is described by a second 
degree polynomial, for example. We will now explore some ways in which 
the computer may be programmed to evaluate polynomials and make some 
comparisons. 

Regardless of the final procedure to be used to evaluate a polynomial, 
we will probably want to store the coefficients in a list. If you have zero sub- 
scripts available, this is a perfect fit because the subscript of the coefficient is 
equal to the exponent on x in each term. If you don't use zero subscripts, 
simply adjust the variable used for exponents. We arbitrarily select 3x 4 + 
2x 3 - x 2 + 5x + 3 for our first example. The degree of the example is 
four, and hence there are five coefficients. The coefficients and the degree of 
the polynomial may be entered as data. 

One procedure for evaluating a polynomial is to use a BASIC language 
function such as 

100 DEF FNPCX) = PCS >*Xt 4+PC4 >*Xt 3+PC 3>*Xt 2+P(2)*X+P< 1) 

This defined function will work fine for any fourth degree polynomial. For a 

101 
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degree less than four we could fill in with zeros, but for degrees more than 
four, we would have to retype the line. We are also limited by line length 
when DEFining a function on some computer systems. Others allow multiple 
line DEFinitions. So while the DEF capability is very useful in some situa- 
tions, we might give some thought to developing another procedure for evalu- 
ating a polynomial. 

Note that the exponent of x is one less than the subscript of the list co- 
efficient in each term of the DEF statement. (They are the same if you use 
zero subscripts. j Even P(2) T x can be written p(2)*xTl aiidp(l) can ue writ- 
ten rcf"n*rtfl Cllnlpsc; r = (\\ Thic clI««oe(-c tho fnllnurinir Inrai' 
* v — / ' - \ ■" -/- ~ — es ......^ .. ...j, .""£. . 

300 LET PS = PCI) 

310 FOR I = N-tl TO 2 STEP -1 

320 LET P2 = P2 + P(I)*Xt(I-|) 

330 NEXT I 

This four line routine has the desirable feature that it requires no change for 
handling polynomials of differing degree. 

Suppose we give some thought to the number of operations we are in- 
structing the computer to perform. Look at line 320. There we can see an 
addition and a multiplication and an exponentiation. For positive integers as 
exponents, exponentiation amounts to successive multiplication. That means 
for an exponent of I - 1 there will be I - 2 multiplications plus the multi- 
plication of the coefficient. That makes 1-1 multiplications for that line. 
If we take another look at 3x 4 + 2x 3 - x 2 + 4x + 3 and count the number 
of operations, we get four additions and 10 multiplications for our fourth de- 
gree polynomial (not accounting for how the computer might handle the ex- 
ponent one as a special case). For a 10 th degree polynomial there would be 
10 additions and 55 multiplications. 

Programmers often try to improve the efficiency of their programs because 
of the limitations of the computer and the size of the job to be done or purely 
for the challenge involved. Notice that in any polynomial, beginning with the 
second term, each term has x as a factor one less time than the previous term. 
This suggests some sort of successive factoring, as shown by the following: 

3x 4 + 2x 3 = (3x + 2)x 3 

(3x + 2)x 3 - x 1 = ((3x + 2)x - l)x 2 

((3x + 2)x - l)x 2 + 4x = (((3x + 2)x - l)x + 4)x 

(((3x + 2)x - l)x + 4)x + 3 = (((3x + 2)x - l)x + 4)x + 3 

Thus our original polynomial 3x 4 + 2x 3 - x 2 + 4x + 3 can be written in the 
following form: 

(((3x + 2)x - l)x + 4)x + 3 

This is called nested form. 

Now there are only four multiplications and four additions called for in a 
fourth degree polynomial. Of course, a saving of six multiplications is not much 
to a computer, but the saving accumulates as the degree of the polynomial in- 
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creases and as the number of times we evaluate the polynomial increases. Con- 
sider the following routine: 

400 LET P3 = PCN+l) 

410 FOR I = N TO 1 STEP -I 
420 LET P3 = P3*X + PCI) 

430 NEXT I 

We have another four-line routine that is more efficient than the first one. 

We now have three procedures for evaluating polynomials. The first is a 
defined function, the second is a loop which evaluates the polynomial using ex- 
ponents term by term, and the third is a loop which uses nested form. Let's 
assemble these three procedures into a program so that we can compare some 
values. As we expected, we see that all values do check out by looking at the 
output of program P0LYO1. 

P0LYO1 

94 REM * THIS PR0GRAM EVALUATES POLYNOMIALS BY THREE 

95 REM METHODS! DEF, TERM BY TERM AND NESTING 
96 

97 REM * SET UP DEFINED FUNCTION 

100 DEF FNPCX) = P(5)*Xt4+PC4)*Xt3*PC3)*Xl2*PC2)*X+PCl) 

102 

104 REM * READ DATA 

110 READ N 

120 FOR I = N+l T0 1 STEP -1 

130 READ P<I) 

140 NEXT I 

142 

144 REM * PRINT HEADINGS 

150 PRINT "X". "FNPCX)", "EXP L00P"» "NESTING" 

160 F0R X = 1 T0 10 

192 

194 REM * CALCULATE BY DEF 

200 LET PI = FNPCX) 

292 

294 REM * CALCULATE USING EXPONENTS IN A LOOP 

295 REM TERM BY TERM 
300 LET P2 = PCI) 

310 FOR I = N*l TO 2 STEP -1 

320 LET P2 = P2 ♦ PCI)*XtCI-l) 

330 NEXT I 

392 

394 REM * CALCULATE USING NESTING 

400 LET P3 = PCN-M) 

410 FOR I = N TO 1 STEP -1 

420 LET P3 = P3*X + PCI) 

430 NEXT I 

492 

494 REM * PRINT RESULTS 

500 PRINT X. PI. P2> P3 

510 NEXT X 

512 

514 REM 

520 DATA 4, 3. 2. -1» 5. 3 

530 END 

RUN 

P0LYO1 



X 
1 



FNPCX) EXP LOOP NESTING 

12 12 12 



2 73 73 73 

3 306 306 306 

4 903 903 903 
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5 


2128 


2128 


2128 


6 


4317 


4317 


4317 


7 


7878 


7878 


7878 


8 


1329 1 


1329 1 


1329 1 


9 


21 108 


21 108 


21 108 


10 


31953 


31953 


31953 



Problems for Sec. 8-1 

1) Write a program to tabulate the number of additions and multiplica- 

IlAne i'n*- iM.ivii'tMlY nrxrtvnnc i-\r nnitrnnivitiii 1 « n.4/5/M. i- r* A ^ «« «*. n <.. ^ ... „„4.;. . 

«»»/"" JLV*iL * "■*-„* ***K, UVCIVVO V*JL L'lSl V HUilllU 111 * f I IJ 17 I lit J 1 ..It 1 I I M.»<l « «2 I J.t^J> I, I I I V 

with a one line DEF or with a loop which uses exponents. 

2) Write a program to multiply two polynomials. 

3) Write a program to add polynomials. Be sure to avoid leading zero co- 
efficients. 

4) Do problem 3 for subtraction. 

5) Write a program to give ordered pairs (x,p(x)) suitable for graphing the 
polynomial p(x). 

6) Write a program to find zeros of a second-degree polynomial using the 
quadratic formula. 

8-2 Finding a Real Zero of a Polynomial 

Now that we are set up to evaluate a polynomial, we can explore some ap- 
plications. One important consideration where polynomials are concerned is to 
find values of x for which the value of the polynomial is equal to zero. If we 
designate a polynomial as p(x) (read p of x) and set y equal to p{x), then we 
may think in terms of polynomial equations and their graphs. The zeros of a 
polynomial are the values of x where p(x) = 0. For real zeros they are the val- 
ues of x where the graph of the polynomial equation crosses the x -axis. How- 
ever, in the case of nonreal zeros, while the value of p(x) will be zero, the graph 
of the polynomial equation in the x-y plane will not cross the x-axis. Of course, 
we are familiar with special mathematical procedures for solving certain poly- 
nomials. For instance, all second-degree polynomials may be solved by the 
quadratic formula. We will look here at more general solutions. 

It can be shown that every nth degree polynomial has exactly n complex 
zeros. So one approach to finding zeros is to simply try values of x until n are 
found which give p(x) = 0. Such a procedure is feasible only with the aid of a 
computer because of the tedious calculations required. Even so, the approach 
can be very complicated indeed. We will simplify our job for now if we begin by 
looking only for real zeros. A most valuable aid to finding zeros of any contin- 
uous function y = f(x) is the principle that if f(x t ) and f(x 2 ) are of different 
sign, then there are an odd number of zeros in the interval frornxj tox 2 . For 
real values of x it should be clear that if f(x t ) > 0, the point (x t , f(x t )) on the 
graph is above the x-axis, whereas f(xi ) < makes (x 2 , f(x 2 )) below the x-axis, 

between. 

There is a variety of ways to isolate increments in which real zeros may be 
found. Let us set up a procedure whereby we have control over where the com- 
puter searches for intervals within which zeros may be found. We can store co- 
efficients in a list, select limits within which to search, and have the computer 



Polynomials 105 

step through the specified region, trying pairs of values for x to see if f(xi)*f(x 2 ) 
is positive. If it is not, then we have a zero between x x and x 2 or either Xj or x 2 
is a zero. If we always find f(x l )*-f(x 2 ) positive, there are numerous possible 
reasons. We may not have included the zeros in our limits, or we may have had 
the computer search such large increments that the graph crosses the x-axis an 
even number of times, or the graph may just touch the x-axis at a minimum or 
maximum point and never cross the x-axis (the point at which it touches, how- 
ever, is still a zero of the polynomial), or there are no real zeros. We must bear 
all of these problems in mind as we construct and operate a program. 

In program ZER0O1, line 120 reads the degree of the polynomial and line 
140 reads the coefficients. Line 280 tests for sign change. The subroutine 
which starts at line 800 evaluates the polynomial by nesting. Line 840 checks 
for exact zeros. The general procedure here is just as valid for any continuous 
function as it is for polynomial functions. Note that we could use the graphing 
of Chapter 5 to assist us in finding regions where we might expect to find zeros. 



94 REM * THIS PROGRAM SEARCHES FOR A SIGN CHANGE 

95 REM IN THE VALUE BE A POLYNOMIAL FUNCTION 
100 DIM P(15) 

lip PRINT "POLYNOMIAL IS") 

■ 120 READ N 

130 FOR I = N+l TO 1 STEP -1 
- 140 READ PCI) 

150 PRINT PCD) 

160 NEXT I 

162 

170 PRINT 

180 PRINT 

190 PRINT "FIRST. LAST. STEP") 

200 INPUT F. L. S 

210 PRINT 

220 LET X0 = F 

230 G0SUB 800 

240 FOR X = F+S TO L STEP S 

242 

244 REM * SAVE THE VALUE OF THE FUNCTION AT THE 

245 REM BEGINNING OF THE INTERVAL 
250 LET Yl = P3 

260 LET X0 = X 

270 G0SUB 800 

-280 IF Y1*P3 > THEN 320 

290 PRINT "SIGN CHANGE:" 

300 PRINT "PC") X-S) ")=") Yl) "AND PC") X) ">=" 

310 STOP 

320 NEXT X 

322 

330 PRINT "NO SIGN CHANGE FOUND" 

340 STOP 

792 

794 REM * LINES 800 TO 830 EVALUATE BY NESTING 

•800 LET P3 = PCN-M ) 

810 FOR I = N TO 1 STEP -1 

R20 LET P3 = P3*X0 + PCI ) 

830 NFXT I 

832 

834 REM * CHECK FOR EXACT ZERO 
-840 IF P3 <> THEN 880 

850 PRINT 

860 PRINT X0> "IS A ZERO" 

870 STOP 

880 RETURN 

882 
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884 REM 

890 DATA 3» 1.2.3.4 

900 END 

RUN 

ZER0O! 

POLYNOMIAL IS I 2 3 4 

FIRST. LAST. STEP? -10.10,1 

SIGN CHANGE: 

PC-2 >=-2 AND PC-! )= 2 

Interval Halving 

Now we have an interval in which we expect to find a zero. We would like 
to make that interval smaller and smaller to get successively better approxima- 
tions of a zero. We can simply evaluate the polynomial at the midpoint of the 
interval found in program ZER0O1 and check for a change of sign against one 
endpoint. If a change in sign is found, we bisect and repeat. If a change in sign 
is not found, then the change must occur between the midpoint and the end- 
point not tested above; therefore we bisect that interval and repeat. After each 
bisection the interval is smaller and the midpoint is a better approximation of 
the zero. This process is accomplished in lines 400 to 550 of program ZER0O2. 

The process needs a stopping place. We need a test of the accuracy of the 
current approximation that works for roots very close to zero and far away from 
zero, a test, moreover, that is compatible with the precision of the computer. 
We would like to get six significant digits in our results. We label the endpoints 
of the interval x x and x 2 . If we test |x, - x 2 \ against 10~ 6 , we will not get six 
significant digits for x t and x 2 when they are very close to zero. Forxi and x 2 
large in magnitude, say 100,000, we would require a machine with 12-digit pre- 
cision. These problems are avoided by using relative error and testing \x t - x 2 \l 
(\xi\ + |*2 1) against 10~ 6 . See line 450 in program ZER0O2. 



94 REM * THIS PROGRAM SEARCHES FOR APPROXIMATE ZEROS 

95 REM IN THE INTERVALS FOUND IN PROGRAM ZER001 
100 DIM PC1S) 

110 PRINT "POLYNOMIAL IS") 

120 READ N 

130 FOR I = N+l TO 1 STEP -1 

140 READ PCI) 

150 PRINT P(I)J 

160 NEXT I 

162 

170 PRINT 

180 PRINT 

190 PRINT "FIRST, LAST. STEP"! 

200 INPUT F. L. S 

210 PRINT 

220 LET X0 = F 

230 G0SUB 800 

240 FOR X = F+S T0 L STEP S 

250 LET Yl = P3 

260 LET X0 = X 

270 GBSUB 800 

280 IF Y1*P3 > THEN 320 
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290 
300 
310 
320 
322 
330 
340 
392 
394 
395 
396 
400 
410 
420 
422 
424 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
^550 
792 
794 
800 
810 
820 
8 30 
832 
840 
850 
860 
870 
880 
882 
884 
890 
900 
RUN 
ZERO 



PRINT "SIGN CHANGE:" 

PRINT "P<"J X-S> ")=") Yl> "AND P<"J X; "> = ") P3 
G0T0 400 
NEXT X 

PRINT "NO SIGN CHANGE FOUND" 
STOP 

REM * LINES 400 THROUGH 550 CARRY OUT INTERVAL 

REM HALVING. INTERVAL BOUNDARIES ARE XI AND X2 

REM EXACT ZEROS ARE FOUND IN LINE 840 

LET XI = X-S 

LET X2 = X 

LET Y2 = P3 

REM * HALVING TAKES PLACE IN LINE 430 
LET XO = CX1+X2J/2 
G0SU8 800 

IF ABS(X1-X2)/CABSCX1 >+ABS(X2>> > 1E-6 THEN 500 
PRINT 

PRINT "APPROXIMATE ZERO!" 
PRINT "P<"! X0> ")="J P3 
STOP 

IF Y1*P3 > THEN 530 
LET X2 = XO 
GOTO 420 
LET XI = XO 
LET Yl = P3 
G0T0 430 

REM * EVALUATE BY NESTING 

LET P3 = P(N+1 ) 

FOR I = N TO 1 STEP -1 

LET P3 = P3*X0 ♦ P(I) 
NEXT I 

IF P3 <> THEN 880 
PRINT 

PRINT XO) "IS A ZERO" 
STOP 
RETURN 

REM 

DATA 3. 1.2.3.4 

END 



POLYNOMIAL IS 1 



FIRST. LAST. STEP? 



SIGN CHANGE! 

PC-1.7 )=-0.233 AND P<-1.6 )= 0.224 



APPROXIMATE ZERO: 

P<-1. 65063 )=-4.7632E-6 



Summary of Sec. 8-2 

We have used the principle that if f(xj) and f(x 2 ) are of opposite signs, 
there must be a value of x between x x and x 2 such that f(x) = if we are to 
find intervals within which zeros exist for polynomial functions. We have fur- 
ther reduced interval size by successive halving to obtain approximate zeros. All 
of the methods used here can easily be applied to other finite continuous func- 
tions as well. 
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Problems for Sec. 8-2 

1) Find a zero for any or all of the following: 

a) x 3 + 6x 2 - 49x + 66 

b) x 4 + 2x 3 - 13x 2 - 14* + 24 

c) x 3 + llx 2 - 68x - 672 

+ 492x + 2340 

2 + 7.2x + 28.8 

2) Modify ZER0O2 to search for ail real zeros automatically after the val- 
ues of F, L, and S have been specified. Be sure to stop if all zeros have 
been found without further testing values of x. 

3) Modify ZER0O2 to use linear interpolation instead of interval halving 
to obtain approximate zeros. 

4) Modify ZER0O2 to find zeros for any continuous function rather than 
just a polynomial function. 

8-3 Synthetic Division to Get Further Zeros 

We present the Remainder Theorem, Factor Theorem, and synthetic divi- 
sion as aids to finding zeros after a first zero is known. 

The Remainder Theorem 

If p(x) is divided by (x - z), the remainder is the value of the polynomial 
when z is substituted for x. 

= q(x) + - 

(x - z) (x - z) 

That is, p(x) divided by (x - z) yields a quotient polynomial plus a remainder. 
Multiplying through by (x - z)we get: 

p(x) = (x - z)q{x) + r 
and when z is substituted for x that produces: 

p{z) = (z - z)q{z) + r 

or simply 

p(z) = r 

Factor Theorem 

We note that when the value of r is zero, we have p(z) = 0, and that makes 
z a solution of the equation p(x) = or a zero of the polynomial Since the re- 
mainder is zero after dividing by (x - z), it follows that (x - z) must be a 
factor of p(x), or 

p(x) = (x - z)q{x) 

Having found the first zero using the procedure of Sec. 8-2, we need only find 
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q(x) and then use the procedure of 8-2 on it, repeating until all real zeros are 
found. 

Synthetic Division 

We now develop the synthetic division algorithm using x 4 + 5x 3 + 
9x + 8x + 4 divided by x + 2 as an example. It is this division that will 
enable us to find q(x) above. We begin by performing the division "long hand": 



x + 



x 3 + 3x 2 + 3x 


+ 


2 


2)x 4 + 5x 3 + 9x 2 


+ 


8x + 4 


X ' i&jC 






3x 3 + 9x 2 






3x 3 + 6x 2 






3x 2 


+ 


8x 


3x 2 


+ 


Qx 

2x + 4 
2x + 4 



Notice that a great many things will always be written twice. We will always 
"bring down" 9x 2 and 8x and 4. For division by x + 2, we will always get x 4 
and 3x and 3x 2 and 2x repeated. So let us eliminate these repetitions and 
compress the problem vertically: 



x 3 + 3x 2 + 3x +2 
x + 2)x 4 + 5x 3 + 9x 2 + 8x + 4 
2x 3 + 6x 2 + 6x + 4 



3x 3 + 3x 2 + 2x 



Now if we line things up properly, there is no need to write the x's and their 
exponents. And there will always be an x in the divisor, so we don't need that. 
Let's condense again: 

1 + 3 + 3 + 2 
+ 2)1 + 5 + 9 + 8 + 4 

2 + 6 + 6 + 4 

3 + 3 + 2 

Since the coefficient of the first term of the quotient is always the same as the 
coefficient of the first term of the original polynomial, we can make the bottom 
line of figures exactly agree with the top line by simply bringing down the first 
figure. Now we eliminate the top line to get: 

+ 2)l + 5 + 9 + 8 + 4 
2 + 6 + 6 + 4 

1 + 3 + 3 + 2 
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Recognizing that subtraction is the same as "changing the sign and adding," we 
can change the 2 to a -2 and add instead of subtracting. That leaves us with: 



-2)1 + 5 + 9 + 8 + 4 
- 2 - 6 -6-4 

1 + 3 + 3 + 2 
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-2 and write it under the 5. Add R and -2 to get 3. Multiply the 3 by -2 and 
write it down under the 9. Add 9 and -6 to get 3. Multiply 3 by -2 and write it 
down under the 8. Add 8 and -6 to get 2. Multiply 2 by -2 and write it down 
under the 4. Add 4 and -4 to get a remainder of 0. Division done by this 
algorithm is called "synthetic division." 

Since synthetic division is an iterative process, it is especially suited to the 
computer. Notice that most of the process consists of multiplying and adding. 
Not only is that an iterative process, but it is the same iterative process used for 
evaluating polynomials by the nesting method. All that is required to adapt the 
subroutine 800 in program ZER0O2 to synthetic division is to store the sub- 
totals along the way in an appropriate list element. This is done in line 820 of 
program DIVIDE. Look at program DIVIDE and compare subroutine 800 in 
it with the subroutine 800 in ZER0O2. 



DIVIDE 

94 REM * THIS PROGRAM USES SYNTHETIC DIVISION 

100 DIM PC15). QC15) 

110 READ N 

120 PRINT "PCX)="J 

130 FOR I = N+1 TO 1 STEP -1 
140 READ P(I) 
150 PRINT P(I)J 

160 NEXT I 
162 

170 PRINT 

180 PRINT "DIVIDE BY X~") 

190 INPUT X0 

200 PRINT "QUOTIENT "J 

210 G0SUB 800 

220 STOP 
792 

79/1 REM * THE DIVISION TAKES PLACE IN LINES 800 TO 830 

795 REM * NOTE THE SIMILARITY TO NESTING 

800 LET P3 = QCN+1) = PCN+1) 

810 FOR I = N TO 1 STEP -1 
-820 LET QCI) = P3 = P3*X0 ♦ Pd> 

830 NEXT I 

834 REM * PRINT RESULTS 

840 FOR I = N+1 TO 2 STEP -1 

850 PRINT 0(1)1 

860 NEXT I 

862 

870 PRINT "REMAINDER ="! 0(1) 

880 RETURN 

882 

884 REM 

890 DATA 4. 1.5.9.8.4 

900 END 
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RUN 
DIVIDE 












PCX> = 1 5 
DIVIDE BY X- 
QUOTIENT 1 


9 

-? ■ 
3 


8 
-2 
3 


4 

a 


REMAINDER 



Program DIVIDE works well, but why use a program to perform division 
in the first place? Why not simply use program ZER0O2 to look for zeros until 
we find all of them? It is true that program ZER0O2 would easily find - 2 as a 
zerooff(x) = x 4 + 5x 3 + 9x 2 + 8x + 4, but then what? Program ZER0O2 
will find no further zeros. We may use the results of a run of program DIVIDE 
to see why. 

The output of program DIVIDE above tells us that 

x 4 + 5x 3 + 9x 2 + 8x + 4 = (x + 2)(x 3 + 3x 2 + 3x + 2) 

So -2 is a zero of our function f(x) = x 4 + 5x 3 + 9x 2 + 8x + 4. Next we 
want a zero of q(x) = x 3 + 3x 2 + 3x + 2. Let's use program ZER0O2 to find 
that zero. 



890 DATA 3, 1,3,3,2 

RUN 

ZER002 

POLYNOMIAL IS 1 3 3 2 

FIRST, LAST, STEP? -5,5,1 

-2 IS A ZERO 

A run of ZER0O2 with the new data reveals why we could not have found one 
of the other zeros. We now see that - 2 is a zero of the function f twice and our 
program had no way of determining that fact. Values that occur more than once 
as zeros are called multiple zeros. Why wouldn't ZER0O2 find the other two 
zeros? Let's divide q(x) by (x + 2) and find out. 



890 DATA 3, 1,3,3,2 

RUN 

DIVIDE 

PCX> = 13 3 2 
DIVIDE BY X-? -2 
QUOTIENT 1 1 1 REMAINDER = 



Thus one factored form of our original polynomial is 

(x + 2)(x + 2)(x 2 + x + 1) 

The first two factors tell us that - 2 is a zero twice and analyzing the third factor 
using the quadratic formula tells us that the final two zeros are nonreal numbers. 
They are -\ + \i\fZ and--| - \i\[Z . 



112 Advanced BASIC 

Thus we see that the ability to divide polynomials by (x - z) where z is a 
zero of the polynomial function makes more information available to us than we 
would have if we limited ourselves to the procedures of program ZER0O2. The 
ability to divide enables us to find multiple zeros and, where we are able to 
divide so that the quotient polynomial is a quadratic, we are able to determine 
nonreal zeros. We note that caution must be exercised when dividing by ap- 
proximate zeros. Each succeeding division will be susceptible to additional error. 
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polynomial by (x - z) to obtain a new polynomial with one less zero. Synthetic 
division has been shown to duplicate the steps of evaluating a polynomial by the 
nesting method and so enables us to easily perform the division indicated by the 
results of the factor theorem. This enables us to find multiple zeros and, in 
some cases, nonreal zeros. 

Problems for Sec. 8-3 

1) Write a program to find the zeros of third-degree polynomials by find- 
ing the first zero and then finding the remaining zeros by using the 
quadratic formula. 

2) Incorporate synthetic division into program ZER0O2 so that when 
ever a zero is found, the division is performed and a search is begun for 
the next zero. 

3) Use the methods of this section to find as many zeros as possible for 
the problems of problem 1 in Sec. 8-2. 

8-4 Miscellaneous Aids 
Integral Zeros 

It can be shown that for an nth degree polynomial with zeros z n , 
2 n _! ,... ,Z2,Zi that the following is true: 

(X - Z n )(x - 2„_i )...(* " Z 2 )(X - Z X ) 

= a n x n + On-ix"" 1 + . . . + a t x + a 

Considering the product of n binomials on the left we can see that (-z n ) ■ 
(-z n _! ) . . . {-z 2 )(~Zi ) is the constant term in the product which must equal the 
constant term on the right, or a . If there is at least one integral zero and a is 
an integer, that means that all integral zeros of a polynomial must be factors of 
a . So we could write a program somewhat simpler than ZER0O1 that would 
search only for integral zeros by first determining all integral factors of a . In 
program ZER0O1 we usedp(l) fora . 

Descartes' Ruie of Signs 

Consider the polynomial x 2 + 8x + 1. It should be clear that no matter 
what positive value we might try for x, we can never make x 2 + 8x + 1 equal 
zero because x 2 and 8x are both positive for x positive. Thus in searching for 
real zeros we need not consider any positive numbers. The same is true for 
-2x 2 - 5x - 1. Now, what about x 2 + 3x - 1? Can there be more than one 
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positive value of x for which x 2 + 3x - 1 = 0? No! Consider as another 
example x 2 + 1. There is no positive replacement for x to make x 2 + 1 equal 
to zero, and likewise there is no negative replacement for x that makes x 2 + 1 
equal to zero since x 2 would have to equal -1. That tells us that since x 2 + 1 
is a second-degree polynomial and has two complex zeros, they must both be 
nonreal. Descartes observed all this and more and left us with Descartes' Rule 
of Signs. 

We may define the variation v in a sequence of numbers as the number of 
changes in sign found by comparing successive pairs of adjacent numbers. For 
example, for the sequence 1, 3, 4, -8, 2, the value of v is 2. There is no change 
for 1 to 3 or 3 to 4. There is one change for 4 to -8 and for -8 to 2. If zeros 
appear in the sequence, we drop them. The sequence -2, 8, 0, 5,-3, 6 becomes 
- 2, 8, 5, - 3, 6 in order to determine the number of variations, which is 3. 

Descartes' Rule of Signs says that for 

a n x n + a n _ l x n ~ 1 + . . . aix + a 

the number of positive zeros depends on the number of variations in the se- 
quence, a n , a„_! , . . . , a\ , a , in the following manner. If v is the number of 
variations, then the number of positive zeros is either core - 2 or v - 4, etc., 
but not less than zero. This may be written v - 1i where i is a positive integer. 
It turns out that we may find a corresponding number for negative zeros 
by finding positive zeros forp(-x). Substituting -x tor x will change the sign of 
all terms which have an odd exponent for x. Thus if p(x) = -4x s - 3x 4 + 
5x 3 - 2x 2 + x - 3, the value of v is 4 and there must be 4 or 2 or positive 
zeros. Now we find that p(~x) = +4x 5 - 3x 4 - 5x 3 - 2x 2 - x - 3 and 
that v is 1. Thus there must be exactly one negative zero. For example, in 
3x 6 - 2x s + x 4 - 2x 3 + 5x 2 - x + 1, we might expect to find as many as 
six positive zeros, but under no conditions would we look for negative zeros 
since p(-x) = 3x 6 + 2x s + x 4 + 2x 3 + 5x 2 + 1, which gives zero varia- 
tions. All of this gives us a great deal of information. Sometimes the informa- 
tion is exact, as when we get or 1 as the number of variations. At other times 
we get only a guide, as with x 3 + 2x 2 + 2x + 1, which has no positive real 
zeros and three variations fox p(-x), which gives 3 or 1 negative real zeros. A 
solution of the problem will yield one negative zero and two nonreal zeros in 
this particular example. 

Problems for Sec. 8-4 

1) Write a program to produce polynomials of random degree when zeros 
are all random integral values. 

2) Write a program to produce an nth degree polynomial given n integral 
zeros. 

3) Modify program ZER0O1 to find all integral zeros by having x go from 
-a toao STEPSON (a ). 

4) In problem 3, how many additions and multiplications would be re- 
quired in a = 100 for nesting compared to the use of exponents, not 
counting the loop operations? 

5) Modify program ZER0O1 to find all integral zeros by having x take on 
only values which are factors of a . 
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6) Analyze the number of operations called for in problem 5 as compared 
to problem 3 for selected values of a . 

7) Write a routine to use Descartes' Rule of Signs which merely prints the 
number of possible zeros in each of the following categories: complex, 
positive, negative, and zero. Be careful about zero coefficients. 

8) Incorporate the routines of problem 7 in ZER0O2 so that the com- 
puter stops searching if it has found enough positive zeros and if it has 

iOtlild eiiOli"!! rie^^tlVe ZetOS. Be SUre ^ ri-jtro i'Ua rtmilmm n'nonl/ "t\v 

both positive and negative possibilities. 

9) An upper bound may be placed on zeros by finding a non-negative 
value of z such that after dividing by (x - z), all nonzero terms in the 
third line of the synthetic division are of the same sign, provided the 
leading coefficient of p (x) is positive. A lower bound may be found by 
taking the negative of the upper bound forp(-x). Write a program to 
find upper and lower bounds. 



SEQUENCES AND 

S|»TO|BHU^||lBEHa|^a^ 



9-1 Sequences 

A sequence is simply a list of numbers. It is, of course, a natural for use in 
computers, although a computer list may not be essential for a particular 
application. 

Sequences come in two kinds, finite and infinite. Obviously we will only 
be able to evaluate a finite number of terms for any sequence used in a computer. 

We routinely work with sequences. The set of counting numbers is a 
sequence, as is the set of odd integers and the set of even integers. If we were to 
consider 10 random numbers, they could constitute a sequence. It is more usual 
that the numbers in a sequence follow some relatively simple pattern. One such 
sequence you've probably seen goes 1,1,2, 3, 5, 8, where every number from 
the third on is the sum of the previous two. This is called the Fibonacci sequence. 
The numbers in this sequence have widespread significance in mathematics, art, 
and nature. We can easily write a program to compute elements of this sequence, 
store them in a list, and print them, as shown in Program FIBOl. One can 
generate a Fibonacci type sequence by selecting any two integers for F(l) 
and F(2). 



94 REM * THIS PR0GRAM PRINTS THE FIRST 

95 REM 30 FIBONACCI NUMBERS 
100 DIM F<30) 

102 

104 REM * ST0RE THE NUMBERS IN A LIST 

110 LET F<1> = F<2> = 1 

120 F0R X = 3 T0 30 

130 LET F<X) = FCX-1) ♦ F<X-2> 

140 NEXT X 



142 



115 
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144 


REM * 


NOW 


PRINT 


THE 


LIST 








150 


F0R X 


= 1 


T0 30 












160 


PRINT 


FCX>, 












170 


NEXT X 
















173 


















180 


END 
















RUN 


















FIBOI 
1 


1 




1 






2 


3 


5 


8 






13 






ai 


34 


55 


89 






144 






233 


377 


610 


9S7 






! 597 






253 * 


418! 


r. ~ic c: 


10946 




1771 1 






28657 

.3 1 ! o : ! 


46368 


75025 


: c : * 


:?J 


:?c!i 


c 


DJS'JW 



Probably one of the simplest sequences is the set of counting numbers. It 
begins 1, 2, 3, ... . This is an example of an "arithmetic sequence." An arith- 
metic sequence is one in which we get from one term to the next by adding a 
constant, called the common difference. The general form for the nth term of 
such a sequence is t n = t x + (n - l)d, and we will discuss this later. For the 
counting sequence, d = 1. 

Some sequences are motivated by physical problems. Suppose you are 
200 feet from a fixed point. How long will it take to reach that point if you 
cover half the remaining distance every minute? It should be clear that you can- 
not ever reach that point, because at every minute along the way there is still a 
distance separating you from the point and half of that is still a nonzero distance. 
So there is always a distance remaining, and you can only cover half of it in the 
next minute. However, it is also clear that at some point you can reach out and 
touch the point. So we might ask how long it will take to be within six inches. 
Consider program HALF. 

HALF 

94 REM * THIS PROGRAM HALVES DISTANCE 

95 

96 REM * INITIAL CONDITIONS - 200 FEET AT TIME ZERO 

100 LET D = 200 

1 10 LET T = 

! 12 

114 REM * NOW COVER HALF THE REMAINING DISTANCE 

1 15 REM EVERY MINUTE 
120 LET T = T+l 

130 LET D = D*Cl/2) 

140 IF D > 6/12 THEN 120 

150 PRINT "DISTANCE = ") DJ "FEET" 

160 PRINT "IN"! T) "MINUTES" 

170 END 

RUN 

HALF 

DISTANCE = 0.390625 FEET 
IN 9 MINUTES 

If we change HALF to look at the intermediate values of D, we get an 
example of another common type of sequence. Consider program HALF1. 

135 PRINT T) D 

RUN 

HALF1 
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1 

2 


100 
50 






3 


25 






4 


12.5 






5 


6.25 






6 


3. 125 






7 


1 .5625 






8 


0.78125 






9 


0.390625 






DISTANCE = 0. 


,390625 


FEET 


IN 


9 MINUTES 







Each term in the sequence is calculated by multiplying the previous term 
by a constant. In our problem the constant is \. Such sequences are called 
"geometric sequences." The constant term is called the "common ratio." The 
nth term of a geometric sequence can be found by the formula t n = t x r (n ~ 1) , 
where r is the common ratio. 

A common situation described by a geometric sequence is compound 
interest. If you put money in a savings account, the bank adds interest to the 
account at regular intervals, and the amount becomes the principle for the 
next interest period. If the interest rate per interest period is r, we get the 
amount at the end of that period as p + pr, which equals p(l + r), and at the 
end of n periods we get p(l + r) n . If you put $100 in a bank for one year at 
5% interest compounded monthly, the rate for each interest period would be 
.05/12, and the number of interest periods would be 12. Consider Program INT. 



94 


REM * THIS PR0GRAM CALCULATES C0MP0UND 


95 


REM INTEREST BY FORMULA 


100 


READ N 


110 


F0R I = 1 T0 N 


120 


READ P, Rl, Nl» Y 


130 


LET R = Rl/Nl 


140 


LET N = N1*Y 


150 


LET A = P*<l+R/100)tN 


160 


PRINT "$"J PJ "AT"! R1J "% FOR"! YJ "YEARS- 


170 


PRINT "C0MP0UNDED"J N1J "TIMES ANNUALLY BEC0MES S 1 


180 


PRINT 


190 


NEXT I 


192 




194 


REM 


200 


DATA 3 


210 


DATA 100. 5» 4, 2 


220 


DATA 100. 5. 12, 2 


230 


DATA 100. 5. 365, 2 


240 


END 


RUN 




INT 





■J A 



S 100 AT 5 % FOR 2 YEARS 

C0MP0UNDED 4 TIMES ANNUALLY BECOMES I 110.449 

S 100 AT 5 % FOR 2 YEARS 

COMPOUNDED 12 TIMES ANNUALLY BECOMES I 110.494 

$ 100 AT 5 i FOR 2 YEARS 

COMPOUNDED 365 TIMES ANNUALLY BECOMES S 110.516 



For some sequences we are merely given a formula. For example, consider 
the sequence for which the nth term is (2n - l)/(2rc + 1). We see the first 20 
terms in program SEQOl. 



5/7 


7/9 


9 / 1 


1 1 


1 1 / 


13 


13 / 


15 


15 / 


17 


17 / 


19 


19 / 


21 


21 / 


23 


23 / 


25 


2S / 


27 


27 / 


29 


29 / 


31 


31 / 


33 


33 / 


35 


35 / 


37 


37 / 


39 


39 / 


■41 
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SEQOl 

94 REM * THIS PROGRAM PRINTS 20 TERMS 0F THE 

95 REM SEQUENCE (2*N- 1 )/ <2*N*1 ) 
100 DEF FNSCN) = <2*N-1) / f2*N+l> 
110 FOR I = 1 T0 20 

120 PRINT FNS(I)> 2+I-1J M /"J 2*1+1 

130 NEXT I 
132 

140 END 
RUN 
SEQO! 

0.333333 1 / 3 

0.& 3/5 

0.714286 

0.777778 

0.818182 

0.846154 

0.866667 

0.882353 

0.894737 

0.904762 

0.913043 

0.92 

0.925926 

0.931034 

0.935484 

0.939394 

0.942857 

0.945946 

0.948718 

0.95122 

Summary of Sec. 9-1 

Sequences are defined as lists of numbers. Sequences may be motivated 
by a study of some natural phenomenon or simply an interest in the relation- 
ships of numbers. 

Problems for Sec. 9-I 

1) Beginning with the second Fibonacci number, and continuing to the 
eighteenth term of the sequence find (a) the square of the term, 
(b) the product of the immediately preceding and the immediately 
following terms, and (c) the difference of the numbers obtained in (a) 
and (b). 

2) For at least 25 Fibonacci numbers, find, for all possible pairs, the 
greatest common factor. 

3) For at least 15 Fibonacci numbers, print the ratios of adjacent terms. 

4) Have the computer print at least 20 elements of a general Fibonacci 
sequence making f(l) = 1 and f(2) = 3, or any f(l) and f(2) you 
prefer. 

5) For a general Fibonacci sequence like that in problem 4, print the 
ratio of adjacent tenns. 

6) For a general Fibonacci sequence like that in problem 4, print the 
square of each term from the second to the next to last, the product 
of the one just before and the one just after, and the difference of 
these results. 

7) Find the accrual to $1000 after seven years at 6% interest compounded 
monthly and also compounded daily. 
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8) Find how many minutes it will take for you to get to within six 
inches of a point if you start 200 feet away and every minute you 
cover one-third of the remaining distance. 

9) Suppose that a rubber ball is known to bounce to three-fourths of the 
height from which it is dropped. If the ball is dropped from 10 feet, 
how many bounces will it take to bounce back less than one inch? 

10) If you were to place one grain of rice on the first square of a chess 
board, two grains on the second, four grains on the third, doubling 
the number from each square to the next, how many grains would 
you have to place on the 64th square? (Could you?) 

11) Print a few terms of any of the following: 

(a) 2n + 3 (d) n n 

(b) 2n 2 - n + 1 (e) « (1/ "> 

(c) 2"/« 2 (f) (1 + 1/rc)" 

9-2 Convergence and Divergence 

Looking at the sequences of the last section and the results of the prob- 
lems, we can see some differences. Note that for the Fibonacci sequence, the 
numbers get larger and larger, and for the sequence in which the distance is halved 
each minute, the terms get closer and closer to zero. For the sequence generated 
by (2n - l)/(2n + 1), the terms seem to get closer and closer to one. The later 
two sequences are examples of converging sequences, and the Fibonacci sequence 
is an example of a diverging sequence. 

If a sequence converges on some value, then that value is called the limit of 
the sequence. In the formal study of limits, methods are developed for deter- 
mining whether or not a sequence has a limit and for finding the limit if it does 
exist. However, we will take a somewhat informal approach here. 

The limit of a sequence of values Sj , s 2 , . . . s n is denoted by 

lim s„ 

Thus for s n = (2n - l)/(2n + 1), we write: 

In - 1 

hm = 1 

«^°° 2/Z + 1 

Note that there is no integer for which {In - l)/(2n + 1) actually equals one, 
but the larger n gets, the closer to one the value of (2ra - l)/(2n + 1) becomes. 
We can get some insight into the behavior of sequences by looking at a few terms, 
even if that insight is that we need to look at still more terms. In order to be 
certain about the properties of some sequences, you should pursue a formal 
study of limits. However, one clear benefit of using the computer is that we 
may look at hundreds or even thousands of terms without tedious hand calcu- 
lations. Of course, one way to save computer time is to print only those values 
that we are interested in seeing. Sequences converge and diverge at vastly 
different rates. Therefore don't be too quick to infer too much from just a few 
terms. 

We can look at lim (- -f )' by writing a very short program to print some 

l—>oo 

terms. See program LIM01. 
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94 


REM * THIS PROGRAM PRINTS SAMPLE VALUES 


95 


REM FOR THE SEQUENCE S = C-3/5)tH 


100 


DEE FNLCH) = C-3/5>«H 


1 10 


FOR I = 1 T0 10 


120 


PRINT II FNLCI) 


130 


NEXT I 


13S 




140 


PRINT 100J FNLC100) 


150 


PRINT 10H FNLC101) 


!60 


END 


RUN 




LIMO 


11 


1 - 


0.6 


2 


0.36 


3 - 


0.216 


4 


0. 1296 


5 - 


0.07776 


6 


0.046656 


7 - 


2.79936E-2 


8 


1 .67962E-2 


9 - 


1 .00777E-2 


10 


6.04662E-3 


IOC 


1 6.53319E-23 


101 


-3.91991E-23 



Looking at just the first 10 terms we can see that each term is closer to 
zero than the one before and that the values alternate between positive and 
negative. For the one-hundredth term, we get 6.5 X 10~ 23 and for the one- 
hundred and first term we get -3.9 X 10~ 23 , making us more and more confi- 
dent that the limit is zero. 

Not all converging sequences converge on zero. Consider lim (2 + -§-"). 

n -*co 

We can see that (i|-) n converges on zero, and therefore 2 + (^-) n converges on 
2 + 0, or 2. Look at program LIM02, and see how much faster it converges 
than program LIM01. 

LIM02 

94 REM * THIS PROGRAM PRINTS SAMPLE VALUES 

95 REM FOR THE SEQUENCE S = C2+Cl/5)tH) 
100 DEF FNLCH) = C2+<!/5>tH> 

110 FOR I = 1 T0 10 

120 PRINT II FNLCI) 

130 NEXT I 

132 

140 END 

RUN 

LIM02 

1 2.2 

2 2.04 

3 2.008 

4 2.0016 

5 2.00032 

6 2.00006 

7 2.00001 

8 2. 

9 2. 

10 2. 

It should be clear that if any number n such that \n\ < 1 is raised to 
higher and higher powers, the closer to zero n is, the faster the result approaches 
zero. 



Sequences and Series 121 

We will look at an example of divergence before we leave this section. 
Suppose that we have a magic ball that bounces to 110 percent of the height 
from which it is dropped. If we drop this ball from 10 feet, after one bounce it 
reaches 11 feet. After the second bounce, it reaches 12.1 feet, etc. How high 
will it go after 10 bounces? See program B0UNCE. 

BOUNCE 

94 REM * THIS PROGRAM PRINTS HEIGHTS FOR A BALL 

95 REM RECOVERING 110% OF ITS HEIGHT EACH BOUNCE 
100 LET H = 10 

110 FOR I = 1 TO 10 

120 LET H = H*1.10 

130 PRINT IJ H 

140 NEXT I 

142 

150 END 

RUN 

BOUNCE 

1 I 1 

2 12. 1 

3 13.31 

4 14.641 

5 16.1051 

6 17.7156 

7 19.4872 

8 21.4359 

9 23.5795 

10 25.9374 

Summary of Sec. 9-2 

We have been judging divergence and convergence of sequences by looking 
at successive terms. 

Problems for Sec. 9-2 

1) Compare the convergence of ("iff)" with (5^)". 

2) Print a few terms of 1 + (f )" and (1 + (-§))". 

3) Write a program to give enough terms of (2 + (« - 2)/n 2 ) to decide on 

convergence. 

4) Write a program to examine any or all of the following: 

n 2 + 3n - 1 



(a) 
(b) 



n 
n - 1 



(n + 1)(ti - 2) 

(c) 1/72 ! 

(d) 1 - 1/3! + 1/5! + ... + (-l) n+1 /(27i - 1)! 

(e) (1 + (l/n) B ) 

sin(n) 
n 
5) It can be shown for the Fibonacci sequence that the Tith term is: 
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(l + VK) 2 - (i - y^) 2 

Verify this for a reasonable number of terms. 

9-3 Series 

A series is what you get if you write the terms of a sequence with plus 
signs between them. In other words, a series is the sum of a sequence. Thus the 
series for the counting sequence is 

1+2+3+4+5+--- 

The sum of the first five terms is 15. Note that if we look at successive sums, we 
can form yet another sequence called the sequence of partial sums. For the 
counting sequence, we get 

1, 1 + 2, 1 + 2+3, 1 + 2 + 3 + 4, 1 + 2 + 3 + 4+5 ■•■ 

— > v '* v '* v / 

13 6 10 15 ••■ 

We could look at the series associated with that sequence and so on without end. 

For some series, we can evaluate the sum by formula, and for others, to do 
so is difficult. It is even possible to evaluate the sum by formula for certain 
infinite sequences. 

Looking at an arithmetic series of n terms, we see that 

s„ = ti + (t t + Id) + (fj + 2d) + ... + (t % + (n - l)d) (8-1) 
and looking at the same series in reverse order we see that 

s n = (*i + (n - l)d) + ... + (ti + 2d) + (f, + Id) + *! (8-2) 

Adding (8-2) to (8-1) we get 

2s n =■ (2fi + (n - l)d) + ... + (2fi + (n - l)d) + (2t 1 + (n - V)d) 

+ (2t l + (n - l)d) 

which is therefore twice the sum s„ . Note that 2t x + (n - l)d occurs n times. 
Thus we get 2s n = n{2t x + (n - l)d) or 2s n = n(t t + \t x + (n - l)d). 
Since the nth term is t x + (n - l)d, we get 2s„ = n(t 1 + t„) or 

s n = (n/2)(f 1 + t n ) 

This gives us a choice for finding the sum of an arithmetic series. We may 
use either the formula, or add terms as we generate them in a computer loop. 
For a geometric series we have 

r. - * ■ i .. , .i ..2 , . . (n-U ,„ „> 

"n " M ' '1' ' M' ' . . . ' ti< (0-6) 

Multiplying both sides by r we get 

rs n = t t r + t x r 2 + ^r 3 + . . . + f,r" (8-4) 

Subtracting (8-4) from (8-3) we get 

s n - rs„ = t, - Ur n 
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which simplifies to 



s - = h (itt) 



Again we have the choice of finding the sum by formula or by having the 
computer add terms as it generates them. 

We can get some idea about how the arithmetic and geometric series 
behave by picking two terms and treating them as the first and second terms for 
both kinds of sequences. This is done for two pairs of terms in two runs of 
program GE0ARI. 

Note that in both cases the sequence of sums for the arithmetic sequence 
seems to diverge. In fact, all arithmetic sequences for d <> diverge and so 
do their associated sequences of sums. We can see that one of the geometric 
sequences diverges and the other seems to converge. All geometric sequences 
and their associated series for which \r\ < 1 converge. 



GE0ARI 

94 REM * THIS PR0GRAM PRINTS VALUES FOR GEOMETRIC AND 

95 REM ARITHMETIC SEQUENCES AND SERIES WITH THE SAME 

96 REM FIRST TWO TERMS 

100 PRINT "FIRST TW0 TERMS"; 

110 INPUT ACI). AC2) 

120 LET SCI) = TCI) = GCI) = AC!) 

130 LET G<2) = AC2> 

132 

134 REM * FIND COMM0N DIFFERENCE F0R ARITHMETIC SEQUENCE 

140 LET D = AC2) - AC1 ) 

142 

144 REM * FIND C0MM0N RATIO FOR GEOMETRIC SEQUENCE 

150 LET R = GC2)/GC1 ) 

160 PRINT "TERM", "GEB SEQ". "GEO SERIES". 

170 PRINT "ARITH SEQ". "ARITH SERIES" 

172 

174 REM * STORE SUCCESSIVE VALUES IN LISTS 

180 F0R I = 2 T0 10 

190 LET GCI) = GU-1)*R 

200 LET SCI) = SCI-1) + GCI) 

210 LET ACI) = ACI-1) + D 

220 LET TCI) = TCI- 1) + ACI) 

230 NEXT I 

232 

234 REM * PRINT RESULTS 

240 F0R I = 1 T0 10 

250 PRINT I, GCI). SCI). ACI). TCI) 

260 NEXT I 

262 

270 END 



RUN 
GE0ARI 

FIRST TW0 TERMS? 1,2 

TERM GE0 SEQ 

1 1 

2 2 

3 4 

4 8 

5 16 

6 32 

7 64 

8 128 

9 256 

10 512 



GEO SERIES 


ARITH SEQ 


ARITH SERIES 


1 

3 


2 


1 

3 


7 


3 


6 


15 


4 


10 


31 


5 


15 


63 


6 


21 


127 


7 


28 


255 


8 


36 


51 1 


9 


45 


1023 


10 


55 
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RUN 
GEOARI 



FIRST TWO TERMS?4,3 

TERM GEO SEQ GEO SERIES ARITH SEQ ARITH 

4 
7 
3 2.25 9.25 2 9 



1 

2 3 



4 1.6875 

5 1.26562 

6 .949219 

7 .711914 
B - 5 3 39 ^ £ 
9 .400452 



GEO SERIES 


ARITH 


4 


4 


7 


3 


9.25 


2 


10.9375 


1 


12.2031 





13. 1523 


-1 


13.8643 


-2 


14. 0982 


- 3 


14.7986 


-4 


I 5. UVV 


-S 



10 

10 

9 

7 

4 





ujj? I3.UVV -S -5 



Looking at the formula for the sum of a geometric sequence, 

>l - i 



t. 



1 - r 



we can see for \r\ < 1 that r" gets closer and closer to zero as n gets larger 
and larger. Thus 1 - r" gets closer and closer to one, that is, lim 1 - r n = 1, 



and 

A - r , 
lim s„ = lim fj j = t 

„_►«> „-+oo \ 1 - r 

Thus for an infinite sequence with |r| < 1 , 

1 



'(l - r 



s = f, 



^1 - r/ 

Finally, we will look at some other series in the next section. 
Summary of Sec. 9-3 

We have defined a series as what we get by replacing commas with plus 
signs in sequences. We can find the successive sums of a series, which is the 
sequence of partial sums. For an arithmetic series the «th sum is s„ = (n/2) • 
(ti + t n ), and for a geometric series the nth sum is s„ = ^(1 - r")/(l - r). 

Series either converge on some real number value or they diverge. All 
arithmetic series diverge, and geometric series diverge for a common ratio greater 
than or equal to 1 or less than or equal to -1. 

Problems for Sec. 9-3 

1) For the magic ball bounding to 110 percent of its height in Sec. 9-2, 
find the total distance traveled before reaching the height of the tenth 
bounce. 

2) Find the sum of the first n positive integers for the following values of 
n: 10, 100, 1000, and 10000. 

3) In the song "The Twelve Days of Christmas," gifts are bestowed upon 
the singer in the following pattern: the first day she receives a partridge 
in a pear tree; the second day two turtle doves and a partridge in a pear 
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tree; the third day three French hens, two turtle doves, and a partridge 
in a pear tree. This continues for 12 days. On the twelfth day she 
receives 12 + 11 + • • ■ + 2 + 1 gifts. How many gifts were there 
altogether? Note that the figure asked for here is the twelfth term of 
the sequence of partial sums of the sequence of partial sums of the 
sequence of positive integers. 

9-4 More on Series 

There are many series that have importance in the field of mathematics 
which are neither arithmetic nor geometric. 

It can be shown that the cosine is the sum of an infinite sequence: 

While this is a very tedious calculation by hand, it is relatively simple with the 
aid of a computer program. As with finding zeros for polynomials, we use a 
relative comparison to decide when to stop (see line 180 of program C0SINE). 
However, in the case of polynomial evaluation, we were using the value at the 
midpoint of an interval which we knew contained the true value. In that case we 
had a measure of relative error. In the present situation we have somewhat less 
information. We have only the sum of n terms to compare with the sum of 
n - 1 terms. Thus we are saying that the magnitude of the most recent term is 
small enough to stop summing. When the magnitude of the most recent term is 
very small compared to the sum so far, we may expect the error to be small also, 
but not necessarily as small. We have not attempted to measure the cumulative 
effect of the remaining terms, although methods exist for evaluating it. 

COSINE 

94 REM * THIS PROGRAM APPROXIMATES COSINE X 

95 REM USING TERMS OF A SERIES 
100 PRINT "FIND COSINE 0F"J 

110 INPUT X 

120 LET S1=S=N=F= 1 

130 PRINT NJ S 

140 LET N = N+t 

ISO LET SI = S 
1SS 

154 REM * F IS THE VALUE OF FACTORIAL S*N-2 

160 LET F = F*( S*N-2 )*C 2*N-3 ) 

170 LET S = S + <<-l)t(N+l) * Xt< 2*N-2 )/F ) 
— 180 IF ABSCS-S1 >/CABS<S)+ABSCSl >) > 1E-6 THEN 130 

190 PRINT "BY COMPUTER COSINE FUNCTI0N"J C0SCX) 

200 END 
RUN 
COSINE 

FIND COSINE OF? 1.57 

1 1 

2 -0.23245 

3 2.07055E-2 

4 -9.45914E-5 

5 8.20947E-4 

6 7.95873E-4 

7 7.96341E-4 

8 7.96335E-4 

BY COMPUTER COSINE FUNCTION 7.96334E-4 
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Similarly it can be shown that 



„2n-l 



-»(«)■* -■ir + i7-- + (-ir i ^ r T 1 j [ 

Evaluation of this is left as a problem. 

Problems for Sec. 9-4 

1^ Writs s. profflfsm to calculate sinfx) usins the series in this section. 
2) Each of the following series approaches pi as n increases. 

(a)4(l-i + !-... + (-ir>_^ + . V 



1_ 

(c)8 (f + ^ + 



a 



(2n - iy 



Write a program to compare convergence for each of the above. 

3) The constant e, whose value is approximately 2.718, is of importance 
in calculus. It can be shown that 

111 1 

— + — + — + + — 

0! 1! 2! '" n\ 
and 

l\" 

1 + 
n , 

both approach e as n increases. Compare convergence for the two 
different methods of calculating e. 

4) One method of approximating pi is to select random points in a square 
and find how many of them fall within a quarter circle whose radius is 
a side of the square. The number of points that fall within the quarter 
circle should be proportional to the area. The area of the quarter circle 
is \-nr 2 , whereas the area of the square is r 2 . Thus four times the ratio 
of circle to square should approximate pi. This is a variation of the 
Monte Carlo method. Write a program to select from 1,000 to 10,000 
such points to obtain an approximate value for pi. 
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10-1 Introduction 

A matrix is simply a rectangular array of numbers. As such, an array is a 
set of numbers arranged in rows and columns. This is, of course, exactly the ar- 
ray we have been using whenever we have used subscripted numeric variables in 
BASIC. A matrix may also consist of a single row or a single column. Such 
arrays are sometimes called "row vectors" and "column vectors." 

It is the purpose of this chapter to study some of the properties of matri- 
ces and see some applications. We will not concern ourselves with theorems and 
their proofs. A brief review of Sec. 1-5 at this time might be helpful. 

Matrices may be studied in a totally abstract setting, but it is useful to 
have a concrete example. Suppose that we are operating the Framis Corpora- 
tion, which employs three salesmen (it could be 300): Brown, Jones, and Smith. 
Brown, Jones, and Smith are selling clevises, hammer handles, shoehorns, and 
whipsockets. In a given week the three salesmen turn in orders for merchandise 
as shown in Table 10-la. 

One fundamental piece of information is the amount of money brought in 
by each salesman. To calculate that we need the prices as shown in Table 10-lb. 
We can find subtotals by multiplying the price of an item by the number of 
items. The subtotals are shown in Table 10-2a. Now to obtain each salesman's 
total, we simply add across the rows to get the figures shown in Table 10-2b. 

TABLE 10-1a ARRAY S 



Hammer 
Salesman Clevis handle Shoehorn Whipsocket 



Brown 


30 


800 


50 


20 


Jones 


50 


31 


40 


10 


Smith 





500 


50 


90 
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Salesman 


Clevis 


Hammer 
handle 


Shoehorn 


Whipsocket 


Brown 

Jones 

Smith 


$30 

50 




$312.00 

12.08 

195.00 


$24.50 
19.60 
24.50 


$ 75.80 

37.90 

341.10 



TABLE 10-1b ARRAY P 



Item 


Price 


Clevis 


$1.00 


Hammer 




handle 


0.39 


Shoehorn 


0.49 


Whipsocket 


3.79 



TABLE 10-2b ARRAY M 

Salesman Dollar sales 

Brown $442.30 

Jones 119.59 

Smith 560.60 



To make the discussion easier, we label the array of Table 10-la as S, the 
array of Table 10-lb as P, and the array of Table 10-2b as M. Thus to get 
M(l,l), we add the products S(1,I)*P(I,1), for I going from one to four, and to 
get M(2,l), we sum the products S(2,I)*P(I,1), for I going from one to four. 
That makes M(J,1) the sum of the products S(J,I)*P(I,1) for J going from one to 
three and for I going from one to four. If the P array had had a second column, 
such as the salesmen's commission per item, we could carry out the above pro- 
cess for the second column, getting M(J,K) by summing up the products 
S(J,I)*P(I,K), for K going from one to the number of columns in P, J going from 
one to the number of rows in S, and I going from one to the number of columns 
in S. Note that the number of columns in S must equal the number of rows in 
P and that the product array has the number of rows in S and the number of 
columns in P. This is exactly the definition for matrix multiplication. There- 
fore, instead of constructing triply-nested loops to perform the algorithm de- 
scribed above, we take advantage of the BASIC matrix multiplication statement 
(see line 290 of program SALES1). To make the run of the program more 
readable, we have used string lists to provide labeling. 

SALES! 

94 REM * THIS PR0GRAM CALCULATES SALES T0TALS 

95 REM USING MATRICES 

100 DIM SC3.4), PC4,1>, MC3.1), IJC4>. SSC3) 

110 MAT READ S. P. IS, S$ 

IIS 

114 REM * PRINT RAW DATA IN LINES 120 THROUGH 260 

130 F0R I = 1 T0 4 

140 PRINT ISC I >, 

150 NEXT I 

152 

160 F0R I = 1 T0 3 

170 PRINT SSC I >, 

180 F0R J = 1 T0 4 
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190 

200 
202 
210 
220 
222 
230 
240 
250 

26 
270 
272 

27 4 
280 
282 

■ 290 
300 
310 
320 
322 
324 
330 
340 

35 
352 

36 
362 

37 
380 
382 
390 
400 
RUN 
SALE 



PRINT S(I»J>, 
NEXT J 

NEXT I 
PRINT 

PRINT "ITEM", "PRICE" 
FOR I = 1 TO 4 

PRINT ISCI>, PCI,1> 
NEXT I 
PRINT 

REM * CALCULATE TOTALS IN LINE 290 
PRINT "SALESMAN'S "DOLLAR SALES" 

MAT M = S*P 
FOR I = 1 TO 3 

PRINT SSCI>, MCI, 1 ) 
NEXT I 

REM 

DATA 30, 800, 50i 20 

DATA 50, 31, 40, 10 

DATA 0, 500, 50, 90 

DATA 1, .39. .49, 3.79 

DATA CLEVIS, HAMMER HANDLE 
DATA SHOE HORN, WHIPSOCKET 

DATA BROWN, JONES, SMITH 
END 



SI 



SALESMANMTEM CLEVIS 
BROWN 30 

JONES 50 

SMITH 



HAMMER HANDLE 
800 
31 
500 



SHOE HORN 
50 
40 
50 



WHIPSOCKET 
20 
10 
90 



ITEM 
CLEVIS 

HAMMER HANDLE 
SHOE HORN 
WHIPSOCKET 

SALESMAN 
BROWN 
JONES 
SMITH 



PRICE 
1 

0.39 
0.49 
3.79 

DOLLAR SALES 
442.3 
119.59 
560.6 



It may strike you that SALES1 is rather long, and indeed it is. However, 
most of the program is devoted to producing nicely formatted output. If all that 
is required is the three dollar amounts at the end of the printout, that can be 
done with an extremely short program having just one calculation statement and 
one print statement, as shown in program SALES2. 



SALES2 


100 


DIM S(3,4), P(4,l), M<3,1) 


1 10 


MAT READ S, P 


290 


MAT M = S*P 


310 


MAT PRINT M 


330 


DATA 30, 800, 50, 20 


340 


DATA 50, 31, 40, 10 


350 


DATA 0. 500, 50, 90 
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360 
400 

RUN 
SALES2 



DATA 1, 
END 



.49, 3.79 



442.3 
1 19.59 
560.6 



'i a i. i' t r- a s w h i r- h f • n m o 



lio'i 



process of just experimenting with different relationships. So it is recommended 
that you do as many problems as possible and that you work on problems of 
your own throughout this chapter. 

Summary of Sec. 10-1 

Matrices are not only convenient as storage areas for data, they possess 
mathematical properties that are both interesting and of practical value. The 
mathematics of matrix algebra is fairly complex, containing numerous abstract, 
involved, and intricate theorems. The thrust of our work will be to use familiar 
properties to develop new facts. 

Problems for Sec. 10-1 

1) As manager of the Framis Corporation of this section, you are interested 
only in total sales. Create a row vector T to contain the sales totals by 
item for the week. Then find T*P and print it. 

2) MAT READ the integers 1 through 12 into both a column vector C and 
a row vector R. Find R*C and C*R and print them both. 

3) Write a program to print integer powers of an array. How must the 
number of rows and columns be related for this? 

4) A light fixture manufacturer makes three different fixtures requiring 
parts as shown in the table and wishes to make 800 of fixture A, 200 
of fixture B, and 1,500 of fixture C. Write a program to find how 
many bulbs, switches, meters of wire, and screws will be needed. 



B 



Bulbs 3 14 

Switches 112 

Meters of wire 9 2 3 

Screws 15 8 12 



5) Find any or all of the following products: 



(a) 



~1 0~ 


"1 2 3~ 


(b) 


"0 1 0~ 


"1 2 3~ 


10 


4 5 6 




10- 


4 5 6 


_i o Q_ 


J 8 9 _ 




_0 1 0_ 


J 8 9 _ 
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"1 0" 


1 2 3" 


10 


4 5 6 


_0 1_ 


_7 8 9_ 



(c) 



6) Find the result: 



[1 1 1] 



30 800 50 20 

50 31 40 10 

500 50 90 



1.00 
.39 
.49 

3.79 



and compare with the results of problem 1. 

10 2 Solving Simultaneous Linear Equations Using MAT INV 

The matrix equation, 

a 2 b 2 c 2 
ji 3 b 3 c 3 

can be multiplied out on the left side to obtain 

a x x + b y y + c l z~ 
a 2 x + b 2 y + c 2 z 
a 3 x + b 3 y + c 3 z 





X 




^df 




y 


= 


d 2 




z 




_d 3 _ 



(10-1) 





"df 


= 


d 2 




J^ 



(10-2) 



We say that two matrices are equal if each entry of one equals the corresponding 
entry of the other. (Each entry of a matrix is often referred to as an element of 
the matrix.) For MAT A = MAT B that means A(I,J) = B(I,J) for all values of 
I and J. Therefore, we may say that 



a\x + biy + c x z = di 
a 2 x + b 2 y + c 2 z = d 2 
a 3 x + b 3 y + c 3 z = d 3 



(10-3) 



Equation (10-3) constitutes a system of three linear equations in three un- 
knowns. Actually Eqs. (10-1), (10-2), and (10-3) are simply three different ways 
of writing the same equality. 

We want to solve the set of equations (10-3). It will be easier to discuss 
the solution if we assign variables to the matrices of Eq. (10-1) as follows: 



C = 



Cl 


6i 


c{~ 


<*2 


b 2 


c 2 


«3 


b 3 


c 3 _ 



K 



d 2 
d 3 



132 



Advanced BASiC 



iwairix v may De reierrea to as the coefficient matrix, S the solution matrix, and 
K the matrix of constants. Now we may rewrite Eq. (10-1) in the form 

C*S = K (10-4) 

and proceed to solve for S. 

It would be very convenient if we could just divide both sides by C. But 
it turns out that the division of one matrix by another is not an easily describ- 
able process. However, division by C is equivalent to multiplication by the in- 

«mi5m iii i , -hiiii inu inuorwo t\i ■ : 11 ii qvictp ic ooeiit? rtornmrtrt t« u^ fiwii ' 

■ ------ -- — — .-- ■ *--"*- v* ", ". *u Wk.*UUU, IO UUUUJ UUMtlUVU HI unuiu. 

Before we use an inverse to solve simultaneous linear equations let's look 
more closely at just what the inverse of a matrix is. The inverse of a matrix C 
is the matrix C -1 such that the product of C and C _1 is the identity matrix. The 
identity matrix has the same number of rows as columns and is filled with zeros 
except for the upper left to lower right diagonal, which is filled with ones. Note 
that in order for a matrix to have an inverse, it must be square. 

Let's find, for example, the inverse of 

5 
7 
We are looking for a matrix with entries a, b, c, and d such that 



a b 




"5 6' 




"l 0~ 


. c d. 




.7 8. 




-0 1. 



Finding the product on the left we get 
"5a + 76 6a 
.5c + Id 6c 



8b 
8d 



If two matrices are equal, then their corresponding entries are equal. So we get 
the following four equations with four unknowns: 



5a + lb = 1 
5c + Id = 



We can easily solve these equations to get a 
-2.5. Therefore, 



6a + 86 = 
6c + 8d = 1 

■4, b = 



3, c = 3.5, and d = 



or 



-4 3 




"5 6 




1 


3.5 -2.5. 




1 8, 




.0 


[5 61" 
L7 8j 


i 


L 3.5 


3 
-2. 


1 
5j 



We can easily verify this with the demonstration program MATINV. (Note 
that the computer in some cases, unlike our example here, is susceptible to slight 
roundoff errors when the MAT INV statement is used.) 

Now to get back to solving simultaneous linear equations. We had the 
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MATINV 



94 


REM * THIS IS A PR0GRAM 


TO DEMONSTRATE MAT INV 


100 


DIM X<2,2>> A(2,2>» P<2j 


,2) 


110 


MAT READ A 




120 


MAT X = INVCA) 




122 






130 


PRINT "ORIGINAL MATRIX- 


' 


140 


MAT PRINT A 




150 


PRINT 




152 






160 


PRINT "INVERSE MATRIX" 




170 


MAT PRINT X 




180 


PRINT 




182 






190 


PRINT "THE PRODUCT IS" 




200 


MAT P = X*A 




210 


MAT PRINT P 




212 






214 


REM 




220 


DATA 5.6. 7.8 




230 


END 




RUN 






MATINV 




0RIGINAL MATRIX 




5 


6 




7 


8 




INVERSE MATRIX 




-4 


3 




3.5 


-2.5 





THE PRODUCT IS 



matrix equation, C * S = K. Now 

c -i* C *S = c _1 *K (10-5) 

and a matrix times its inverse gives the identity matrix, sometimes designated I. 
Thus C' 1 *C = I. The identity matrix has the property that for any matrix M 
with dimensions compatible with the dimensions of I, 

I*M = M*I = M 



Thus Eq. (10-5) becomes 



or 



I*S = C _1 *K 



S = C _1 *K 



and we have solved Eq. (10-4) for S, which was our purpose. It is now a relatively 
simple matter to write a program (see program S(?)LVE) to solve the system, 

x + 2y - z = 2 

3x - 3y + 22 = 3 (10-6) 

Ax - y + 2z = 8 
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94 

95 

100 

110 

120 

130 

140 

150 

152 

154 



REM * THIS PR0GRAM SOLVES SIMULTANEOUS LINEAR 

REM EQUATIONS USING THE MAT INV STATEMENT 

DIM C<3»3>, SC3,1>, K<3.1)» N<3»3> 

MAT READ C» K 

MAT N = INV(C) 

MAT S = N*K 

PRINT "SOLUTIONS:" 

MAT PRINT S 



REM 



170 DATA 2,3,8 

RUN 
SOLVE 

SOLUTIONS! 

1. 

2. 
3. 

In program S0LVE, the column vector, 

V 
S = 2 

translates back to x = 1, y = 2, and z = 3. We may now substitute these 
values in Eq. (10-6) to verify that they do in fact solve the system of equations. 

Summary of Sec. 10-2 

We have seen that sets of simultaneous linear equations may be solved by 
considering an equivalent matrix equation C*S = K, where C is the coefficient 
matrix, S is a column vector which contains the values of the variables in the 
original set of linear equations, and K is a column vector containing the constant 
terms in the original set of linear equations. We may solve for S by finding the 
inverse of matrix C, so that S = C _1 *K. The inverse may be found with the 
BASIC statement MAT I = INV(C). For systems of simultaneous linear equa- 
tions having a unique solution, MAT C will always be square, which is one of the 
requirements for having an inverse. 

Problems for Sec. 10-2 

1) Let 



A = 



4-4 4 

117 

-3 9 -8 



Find the print A"" 1 , A*A -1 , and A" 1 *A. 
2) Let 



B 



-8 -3 
-1 
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Find B' 1 and print it. Verify by hand-computing the inverse of B. 
Find and print B*B~' and B -1 *B. 

3) Solve for x and y : 

-2x - by = -16 
- x + 4y = 31 

4) Solve for x, y, and z: 
2x - 9y - bz = 2 
7x - Gy + bz = -35 
9x - 6y + 50 = -39 

5) Solve for x,y, and z: 
3x + 4y + z = 7 
bx - 6y + 3z = 8 
3x + 4y + = -3 

6) Solve for w,x,y, and 2: 

6w + 3x + 6y + bz = -12 
-lw + 5x - ly - z = 77 
-3w + x + 3y + 60 = 31 
-2w - 4x + 4y - Iz = -76 

7) Solve for w,x,y, and 2: 
-3w + Gx - by - z = -32 
w + 9x - 5y - 2^ = 9 

w + 6y + bz - 2 

-lw + 4x - y + bz = -86 

8) Solve for x t y, and 0: 

2x + 4y - 30 = -11.9 

-9x - 3y = 58.5 

-9x + 8y + 50 = 66.6 

9) Solve for 0, w,x,y, and 0: 

Iv + 6w - 3x - y + 90 = 26.3 

-9u + 2w + 9x + 5y + = 91.1 

-3u + 4w + bx + 50 = 62.9 

6u - 8x - 2y - 60 = -55.6 

-3u - 9w + 5x + 7y + 30 = -25.9 

10) Let 
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A = 



-2 

-1 

3 



and B = 



2 

-3 

5 



-4 
2 -5 



Find and print (A*B) 1 and B~ ! *A~ J 
11) Write a program that can solve sets of simultaneous linear equations 
having different numbers of equations. Provide an item of data that is 

j — ■_ „_ --JS.-. — v-**u «.»*v* A^uunvugiGu Si* niat<riCc3 aCcOiuiiigiy, 
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11-1 Introduction 

The possibilities for using the computer to analyze and summarize large 
amounts of data are virtually unlimited. This chapter will introduce just a few 
fundamental statistical calculations. 

11-2 Average, Variance, and Standard Deviation 

One of the most common measures of statistical information is the average 
or arithmetic mean. The average is the sum of the measures divided by the num- 
ber of measures. In some cases the mere task of counting the number of mea- 
surements may be a job in itself. So we can even use the computer to do the 
counting for us. All that is necessary is to append an item of artificial data as a 
flag to stop counting and calculate the average, as shown in program AVG. 



94 


REM * 


THIS PROGRAM COUNTS 


DATA AND 






95 


REM CALCULATES AVERAGE 








100 


LET N 


= T = 








1 10 


READ D 








120 


IE 


D = .01 THEN 160 








130 


LET N 


= N+l 








140 


LET T 


= T+D 








150 


GOTO 1 


1 10 








160 


PRINT 


MEASUREMENTS"; 


N 






170 


LET A 


= T/N 








190 


PRINT 


"AVERAGE MEASURE"; 


A 






492 












494 


REM 










500 


DATA 


98. 80, 73. 92, 77. 


84, 83. 79. 


87. 


73 


510 


DATA 


99. 63. 63. 92, 81, 


93. 47. 53. 


89. 


100 


520 


DATA 


98, 71, 73, .01 








530 


END 


t 
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RUN 
AVG 



MEASUREMENTS 23 
AVERAGE MEASURE 80.3478 



The average for a set of data gives no idea of the spread or dispersion of 
the data. The average of zero and 100 is 50, and the average of 49 and 51 is also 
50. We could get some idea by having the computer find for us the largest and 

largest measure could be much larger than the next largest, or the smallest could 
be much smaller than the next smallest. One way to gain some insight into the 
distribution of the measures is to find the average of the amount by which each 
measurement differs or deviates from the average of the measures. There is a 
flaw here, however, as some will deviate by a positive amount and some will 
deviate by a negative amount, thus cancelling each other out. Using mean ab- 
solute deviation would avoid this difficulty. However, expressions involving 
absolute value are difficult to work with algebraically, and statisticians thus find 
the average of the squares of the deviations. This figure is called the "sample 
variance." In order to write a formula for variance, we use the Greek letter 
sigma, 22 , which indicates summation. Defining average using summation nota- 
tion looks like this: 

n 

1=1 



The average A is the sum of all values of x ( for i going from 1 to the number of 
measurements, which is n, divided by the number of measurements. We define 
variance in terms of the average as follows: 

t (*< - A ? 

i=i 

V = 



Even the variance, which gives an indication of how measurements are distrib- 
uted, doesn't indicate actual dispersion. It indicates the square of dispersion. 
Thus we take the square root of V, getting a number called "standard 
deviation": 



and 



Q 2 


1=1 


o - 


n 


S =i/ 


jt (*i - A ) 2 
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Now if we try to apply a computer program directly to the formula for S 2 , we 
soon find that we will have to READ the DATA twice, once to find the average, 
and again to get each value of x,- - A. This is not a problem for small amounts 
of data s but since it can be avoided, let's do so. 
It can be shown that 



(=1 



1 £x?-A> 
n i=i 



This means that we can, alternatively, have the computer sum up the squares of 
the measures rather than the squares of the deviations. This can easily be incor- 
porated into program AVG. See lines 150 and 210 of program VAR. 

VAR 

94 REM * THIS PROGRAM C0UNTS DATA AND CALCULATES 

95 REM THE AVERAGE. VARIANCE AND STANDARD DEVIATION 
100 LET N = T = Tl = 

110 READ D 

120 IF 0= .01 THEN 170 

130 LET N = N-H 

140 LET T = T+D 

— 150 LET Tl = Tl * Dt2 
160 G0T0 110 

170 PRINT " MEASUREMENTS"} N 

172 

180 LET A = T/N 

190 PRINT " AVERAGE MEASURE"} A 

19S 

200 LET Al = Tl/N 

— 210 LET V = Al - AtS 

220 PRINT " VARIANCE"} V 

222 

230 LET S = SQR(V) 

240 PRINT "STANDARD DEVIATION"} S 

492 

494 REM 

500 DATA 98. 80. 73. 92. 77. 84, 83. 79, 87. 73 

510 DATA 99. 63. 63. 92. 81. 93. 47, 53, 89, 100 

520 DATA 98, 71, 73. .01 

530 END 

RUN 

VAR 

MEASUREMENTS 23 

AVERAGE MEASURE 80.3478 

VARIANCE 202.314 

STANDARD DEVIATION 14.2237 



Summary of Sec. 11-2 

In this section, the average, or arithmetic mean, variance, and standard 
deviation have all been defined. We have written programs to calculate the 
average and standard deviation. 

Problems for Sec. 11-2 

1) Modify program AVG so that the computer tells us the highest and 
the lowest measures. 
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2) Modify program VAR so that we get the deviations of the largest and 
smallest measures from average in terms of the number of standard 
deviations. (If the largest measure is 91 for an average of 70 and the 
standard deviation is 7, then the largest measure would be three stan- 
dard deviations from average.) 

3) Often in practice we use what is called the "weighted average." Sup- 
pose that tests count three quizzes and that the final exam counts two 
tests. Find the weighted average for ciuiz marks 70 80 and 73 test 
marks 63, 82, and 91, and a final exam of 83. 

4) Generate 100 random numbers from I to 201. Calculate the average 
and standard deviation. 

5) Generate 100 random numbers from -100 to 100 and calculate the 
average and standard deviation. 

6) Devise a scheme without reading data twice for finding accurately 
the average and standard deviation for the following data: 9999.12, 
9999.36, 9999.64, 10000.03, 10000.41, 9999.83, 9999.51, 9999.13 
and 10000.08. Due to roundoff error, many programs will give a large 
standard deviation for the above data. (Hint: we can simply measure 
differences from 10000 instead of from zero.) 

11-3 Median 

The median is the middle value. Sometimes the median is presented as an 
item of statistical information, such as median income or median weight. If 
there are an even number of data items, then the median is the average of the 
middle two values. One reason for using the median is that it tends to be less 
affected by a few widely dispersed items of data than the average. There are 
no particularly difficult calculations required to find the median. What does 
have to be done, though, is to first arrange the data in numerical order. Thus 
let us develop an ordering routine. 

There are many, many ways of ordering. Some ordering procedures are 
very elaborate and some are very simple. As the number of items to be sorted 
increases, the need for efficiency increases. The study of sorting is a fascinating 
and intriguing one. However, we hesitate to become too involved at this time. 
We will instead develop an ordering routine that works with only a little atten- 
tion to efficiency and defer a more sophisticated study of ordering for another 
time and place. 

If we test every adjacent pair of numbers in a list and find that they are 
in order, then we know that the entire list is in order. This is called a "bubble 
sort." If we find any adjacent pair that is not in order, then we can direct the 
computer to exchange those two elements so that they are in order. If every 
time that we make such an exchange, we turn a switch on by letting S = 1, 
then we can determine at the end of checking through the list that an exchange 
has been made and that the list might not be in order yet. If after scanning the 
entire list we find that switch S is still zero, then we know that no exchange has 
been made and the list must be in order. After the first scan through the list, 
we know that the number at the end of the list is the highest or lowest depend- 
ing on which order we specify. That is, it is the number that will be there when 
the list is finally ordered. Thus we do not need to check the entire list the next 
time; we can check one less item. See program 0RDER. 
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ORDER 



94 


REM * THIS PROGRAM ORDERS UP T0 200 NUMBERS 


100 


DIM LC200) 


102 




104 


REM * READ AND C0UNT DATA 


110 


LET I = 


120 


LET 1=1+1 


130 


IF I <= 200 THEN 160 


140 


PRINT "CURRENT LIMIT IS 200 NUMBERS- 


150 


STOP 


160 


READ LCI) 


170 


IF LCI) <> .01 THEN 120 


180 


LET N = I = 1-1 


184 


REM * TURN SWITCH OFF AND BEGIN SORT 


190 


LET S = 


200 


LET N = N-l 


210 


FOR J = 1 T0 N 


220 


IF LCJ) >= LCJ+1) THEN 270 


222 




224 


REM * EXCHANGE ELEMENTS AND TURN SWITCH 0N 


230 


LET SI = LCJ) 


240 


LET LCJ) = LCJ+1) 


250 


LET LCJ+1) = SI 


26 


LET S = 1 


270 


NEXT J 


S72 




274 


REM * CHECK SWITCH 


275 


REM S = SORT C0MPLETE 


276 


REM S = 1 S0RT N0T C0MPLETE 


280 


IF S = 1 THEN 190 


282 




284 


REM * THE LIST IS IN ORDER - PRINT IT 


290 


FOR X = 1 T0 I 


300 


PRINT LCXJJ 


310 


NEXT X 


492 




494 


REM 


500 


DATA 98. 80. 73. 92* 77* 84, 83. 79. 87> 73 


510 


DATA 99. 63. 63. 92, 81. 93. 47. 53, 89. 100 


520 


DATA 98. 71. 73. .01 


530 


END 


RUN 




0RDER 


100 


99 98 98 93 92 92 89 87 84 83 81 ! 


71 


63 63 53 47 



80 79 77 73 73 73 



Note that in line 220 we check for greater than or equal to. What would 
happen if we only checked for greater than? If there are two equal numbers in 
the list, the switch will always get turned on and cause the routine to be re- 
peated endlessly. In program 0RDER we have done two things in the interest 
of efficiency. We do not scan that part of the list that we know to be in order, 
and we quit when we know the entire list is in order. 

There are other things that may be done to improve the efficiency of 
program 0RDER. One is to sort "up" the list as well as "down." However, 
in spite of these precautions, the general procedure here is satisfactory only for 
relatively small amounts of data. If we are to order thousands or hundreds of 
thousands of data items, then there are far more efficient algorithms which we 
would have to use. The fundamental weakness in the procedure we have used 
is that on each pass the computer checks only one less pair of data items than 
on the previous pass. Much can be gained by partitioning the data to be ordered 
in such a way that only a small fraction of the data need be scanned each time 
an item is placed in its final spot in the list. However, such procedures generally 
require much more programming effort. 
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If all we want is the median, then there is no need to actually print the 
data in order. The middle number for I odd is L(INT(I/2)+l) or L(INT((I+l)/2)). 
See line 320 of program MEDIAN. 



MEDIAN 




94 


REM * 


THIS PROGRAM FINDS THE MEDIAN FOR 


95 


REM AN ODD NUMBER OF DATA ITEMS 


!00 


DIM LC200) 


i iu 


LET I 


= 


130 


LET I 


= 1+1 


130 


II' 


I <= 2uu ir.EN i60 


140 


PRINT 


"CURRENT LIMIT IS 200 NUMBERS" 


150 


STOP 




160 


READ LCI) 


170 


IF 


LCI) <> .01 THEN 120 


ISO 


LET N 


=1=1-1 


190 


IF 


N/2 <> INTCN/2) THEN 220 


200 


PRINT 


"N EVEN" 


210 


STOP 




220 


LET S 


= 


230 


LET N 


= N-l 


240 


FOR J 


= 1 TO N 


250 




IF LCJ) >= LCJ+1) THEN 300 


260 


LET SI = L(J) 


270 


LET LCJ) = LCJ+1) 


280 


LET LCJ+1) = SI 


290 


LEI 


S = 1 


300 


NEXT J 


310 


IF 


S = 1 THEN 220 


312 






320 


PRINT 


"MEDIAN"} LC INTCCI+D/2) ) 


492 






494 


REM 




500 


DATA 


98. 80. 73. 92. 77. 84. 83. 79. 87. 73 


510 


DATA 


99. 63, 63. 92. 81. 93. 47. 53. 89. 100 


520 


DATA 


98. 71. 73. .01 


530 


END 




RUN 






MEDIAN 




MEDIAN 81 





As written, MEDIAN does not properly account for an even number of 
data items. 

Problems for Sec. 11-3 

1) Modify program MEDIAN to allow for both even and odd numbers of 
data items. 

2) Modify 0RDER so that it can be used to arrange in either ascending or 
descending order determined by an INPUT request. 

3) Modify MEDIAN as in problem 1 and print the largest, smallest, and 
average value. 

a\ o,?"^"'**^ ion ^"^ov*, T ,,.vv > v,gv t . from 1 to 100 2nd find the inedinn. 

5) As written, program 0RDER is efficient for a set of numbers in which 
only the first number in the list is out of order. But suppose only the 
last number is out of order. Then the program is slow. We can im- 
prove it by inserting an upward sort, taking the number that belongs 
at the top of the list up to the top in one pass and then not scanning 
that element again. Incorporate this step into the program. 
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11-4 Coefficient of Linear Correlation 

Very often people have a set of data consisting of two or more figures for 
each object of the study and would like to know if there is a relation between 
them. For example, suppose we have test scores for five people for whom we 
also have IQ scores, as shown in Table 11-1. We would like to know if one score 
is a good predictor of the other score. 



TABLE 11-1 


IQ' 


sand Test Scores 


for Five 


People 


IQ 




TEST 


110 




80 


105 




84 


134 




92 


128 




71 


92 




83 



There is a variety of formula and techniques for finding correlations. We 
present here a computational formula for finding the degree of linear correlation 
between two sets of data, X and Y. 

n n n 

nJ^XiYi- ]T Xi J^ Y\ 
i=l ' =1 -^ (11-1) 



XY n 2 V x V Y 

where r XY is the linear correlation coefficient, V x is the variance of the X data, 
and V Y is the variance of the Y data. 

Let's look at the correlation coefficient for the data of Table 11-1. See 
program C0RREL. The correlation is about .03. That may safely be taken to 
indicate that there is no correlation between these two sets of data. That is, IQ 
is unrelated to the test score. We can see by inspection that no obvious pat- 
tern is present. 

We can get some idea of how the value of r is affected by various patterns 
in the data by simply using C0RREL with a variety of data. We present two 
additional runs for your observation. 



94 REM * THIS PROGRAM CALCULATES C0RRELATI0N COEFFICIENT 

100 LET N = S = St = S2 = Tl = T2 = 

110 PRINT "IQ TEST SCORE" 

120 READ X.Y 

130 IF X = THEN 220 

140 PRINT XJ TABC6)J Y 

150 LET N = N+l 

152 

154 REM * SUMMATIONS DONE IN LINES 160 THROUGH 200 

160 LET S = S + X*Y 

170 LET SI = Sl+X 

180 LET S2 = S2+Y 

190 LET Tl = Tl + X»2 

200 LET T2 = T2 + Y«2 

210 GOTO 120 

212 
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214 REM * VARIANCES CALCULATED IN LINES 220 THROUGH 270 

220 LET Al = Sl/N 

230 LET A2 = S2/N 

240 LET Bl = Tl/N 

250 LET B2 = T2/N 

260 LET VI = SQR( Bl - Alt2 ) 

270 LET V2 = SQRC B2 - A2»2 ) 

272 

280 LET R = ( N*S - S1*S2 )/C <Nt2)*Vl*V2 ) 

290 PRINT 

300: CORRELATION = #.#*# 

310 PRINT USING 300. R 



31 4 REM 

3£G DATA i iu.'ay." 

330 DATA 128.7 1. 

340 END 

RUN 

C0RREL 

IQ TEST SCORE 
1 10 80 
10S 84 
134 92 
128 71 
92 83 

CORRELATION = .OS 

RUN 
CORREL 

IQ TEST SCORE 

134 92 

128 84 

110 83 

105 80 

92 71 

CORRELATION = .9: 

RUN 
CBRREL 

IQ TEST SCORE 

1 -2 

2 -3 

4 -5 

5 -6 

CORRELATION = *-l 



We can see that correlation coefficients range from -1 to .930 in the 
sample of runs. It turns out that -1 to 1 is the true maximum range. A coef- 
ficient of one indicates perfect correlation. A coefficient of zero indicates no 
correlation, and a coefficient of negative one indicates perfect negative correla- 
tion. Generally, values between - .40 and .40 are considered to indicate that the 
variables are unrelated, whereas for -1 to -.9 and for .9 to 1 the variables are 

m „-, „:.J J J-~ U~ „„*-,.,*, — in l., n l Ar . n lTT wnlnfrt^ ;« o Hv*o«iv fneV»i«~.K» rpUrx lavrrov fVlQ 

CUXlOiUClCli OM UC OAHCiiiClJt \,l\Jxxx^xJ x.\*xtxx,\~XA XXX x* xxxx\*<xx. x.x**jxxxOxx . x. xx<. .^.^v. *--~ 

number of data items we use to calculate the value of r, the more reliable its 
value. For a small amount of data, the coefficient is more likely to be affected 
by a single stray or inaccurate item of data. 

Often it may happen that we have more than two sets of data with which 
to work. With a slight modification of C0RREL, we can easily find the linear 
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correlation coefficient for columns 1 and 2, 1 and 3, and 2 and 3 for the data 
shown in Table 11-2. See program runs labelled WEATHER. The program is 
actually C0RREL with the READ statement modified as shown in each run. 
An alternative approach would be to REST0RE the data and use the entire 
program as a subroutine three times. 

TABLE 11-2 Run Table Showing Normal, Record High, and Record Low 
Temperatures for 24 Selected Dates of the Year 



Normal 


High 


Low 


Normal 


High 


Low 


32 


61 


4 


32 


63 


5 


46 


81 


14 


53 


91 


27 


33 


61 


2 


34 


63 


-2 


58 


90 


35 


63 


90 


37 


36 


68 


11 


41 


86 


10 


68 


97 


44 


72 


98 


44 


74 


102 


52 


76 


98 


56 


62 


89 


34 


55 


89 


34 


76 


97 


56 


74 


94 


56 


50 


84 


30 


44 


72 


21 


71 


97 


49 


67 


93 


44 


39 


68 


11 


33 


60 


7 



120 READ X»Y,Z 120 READ X.Z.Y 120 READ Z.X.f 



RUN 




WEATHER 


X 


Y 


32 


61 


32 


63 


46 


81 


53 


91 


33 


61 


34 


63 


58 


90 


63 


90 


36 


68 


41 


86 


68 


97 


72 


98 


74 


102 


76 


98 


62 


89 


55 


89 


76 


97 


74 


94 


50 


84 


44 


72 


71 


97 


67 


93 


39 


68 


33 


60 


CORRELATION = 



RUN 




WEATHER 


X 


Y 


32 


4 


32 


5 


46 


14 


53 


27 


33 


2 


34 


-2 


58 


35 


63 


37 


36 


11 


41 


10 


68 


44 


72 


44 


74 


52 


76 


56 


62 


34 


55 


34 


76 


56 


74 


56 


50 


30 


44 


21 


71 


49 


67 


44 


39 


11 


33 


7 


C0RRELATI0N 



RUN 




WEAT 


HER 


X 


Y 


61 


4 


63 


5 


8! 


14 


91 


27 


61 


2 


63 


-2 


90 


35 


90 


37 


68 


1 1 


86 


10 


97 


44 


98 


44 


102 


52 


98 


56 


89 


34 


89 


34 


97 


S6 


94 


56 


84 


30 


72 


21 


97 


49 


93 


44 


68 


11 


60 


7 


C0RRELATI0N 



For correlation normal to high, we get .944; for normal to low, we get 
.984; and for high to low, we get .920. These all indicate a high degree of linear 
correlation. 
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If we were to require the correlation coefficients for all pairs of columns 
for more than three columns, it is a bit awkward to use the method we used in 
program WEATHER. It would be a lot cleaner to read all the data into an array 
and manipulate the column subscripts to get all possible pairs. This is left as an 
exercise. 

Summary of Sec. 1 1-4 

We have presented a computational formula for obtaining the linear cor- 
relation coefficient. This is also referred to as the Pearson r. Values close to 



_ i - 



i=iu muiuim a. iuw ucgiBB ui lineal curreiauuu, vviiureas values Willi ilDSUlUie 

value close to one indicate a high degree of linear correlation. 

Problems for Sec. 11-4 

1) Write a program to generate 25 pairs of random numbers and compute 
the correlation coefficient. What value do you expect? Run the pro- 
gram several times. 

2) Write a program to calculate the correlation coefficient for the integers 
2 through 100 and the number of factors. 

3) Do problem 2 for prime factors not including 1. 

4) Write a program to find correlation coefficients for all pairs of columns 
by first reading the data into a single array as described in the section. 
Use the following data: 

a bed 

39 12 2 1978 

43 8 5 1749 

25 4 1 1462 

22 4 1 1288 

21 11 11 1241 

21 7 3 1176 

32 10 2 1086 

37 7 12 1026 

18 2 1 1003 

30 10 3 971 

5) For the data given, find any or all of the following linear correlations: 

(a) a and b a b 

(b) a 2 and b 

(c) a 3 and b 

(d) a 4 and b 

(e) a and log (b) 



1 


1.04631 


2 


16.5958 


3 


84.0632 


4 


266.206 


5 


651.343 


6 


1353.51 


7 


2512.56 


8 


4294.3 


9 


6890.5 


10 


10519 


11 


15424 



SIMULATION AND 

AMES 



12-1 Introduction 

The ability of the computer to store information, generate random num- 
bers, and make decisions makes it well suited for simulations of all kinds. Com- 
puters can be programmed to play games. Programs can be written to simulate 
business activity, social phenomena, and numerous activities in the physical 
sciences. Computers can be used to conduct gambling enterprises, schedule 
classes, and manage production schedules. Some situations are dealt with by 
having the computer investigate all possible alternatives. Other situations are so 
complex that a procedure must be found that enables the computer to make a 
best reasonable decision which may not be the best possible decision. For 
example, it is possible to write an unbeatable tic-tac-toe program. However, the 
game of chess allows so many possible sequences of moves that it is impossible 
to write a program for existing computers to investigate them all. 

The purpose of this chapter is to present a few examples of simulation and 
to suggest areas for further investigation. 

12-2 Lines at the Bank 

As the manager of a new bank branch, you are interested in knowing what 
to expect in the way of teller requirements. You are presented a bank that has 
five windows. As a preliminary trial, you make the following estimates and 
assumptions: 

1. Assume that there is always a customer waiting with a four -minute 
transaction when the bank opens at 9 am . 

2. Always open two windows at 9 am . 

3. Customers will tolerate only as many as 10 persons per line; thus when 
all lines are full, a new window must be opened. 

147 
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4. During every minute of the day one or two or no customers will enter 
with equal probability. 

5. Every customer after the first has transactions that will last one, two, 
or three munutes with equal probability. 

6. A new customer upon entering the bank goes to the line with the 
fewest persons. In case of a tie, the customer takes the line closest to the door. 

7. The bank closes at 3 pm . 



restrictions above and keeps track of the day's business. One possible simulation 
is to use two arrays— one from the customer's point of view and one from the 
window's point of view. Both arrays have five columns, one per window. The 
customer array has 10 rows to allow as many as 10 people in line. The window 
array has four rows. The first row contains a '1' to signify that the window is 
open and a '0' to signify that the window is closed. The second row contains the 
number of people in line for that window. The third row contains the number 
of people served since the run began. The fourth row contains the number of 
minutes that the window has been open. The customer array contains the 
number of minutes each customer in line will take. 

In program LINES, all loops F0R Wl = 1 T0 5 scan all five windows. 
Lines 200 and 210 open two loops to keep track of time. H stands for hours 
and Ml stands for minutes of that hour. Line 240 looks to see if a window is 
open, and line 250 adds one minute to open time for the window. Line 260 
looks to see if anyone is in line at the open window. Lines 390 through 500 
search for the line having the fewest people. Numerous other relevant comments 
appear in the REM statements of program LINES. 



94 REM * THIS PROGRAM SIMULATES LINES AT 

95 REM TELLER WINO0WS 0F A BANK 
96 

97 REM * ARRAY L IS THE CUSTOMER ARRAY 

98 REM ARRAY R IS THE WINDOW ARRAY 
100 DIMLC10.5). RC4»5>» ASC4) 

105 RAND0MIZE 

110 MAT READ AS 

120 MAT R = ZER 

130 MAT L = ZER 
132 

134 REM * 0PEN WINDOWS 1 AND 2 BY PLACING A 

135 REM 1 IN ROW 1 0F COLUMNS 1 AND 2 IN ARRAY R 
140 LET R<l» 1) = RU»2> = 1 

142 

144 REM * THE FIRST CUSTOMER ENTERS WITH A 

145 REM FOUR MINUTE TRANSACTION 
150 LET L<1» 1) = 4 

160 LET RC2, 1) = 1 

162 

164 REM * SET UP L00PS TO KEEP TRACK OF TIME 

210 FOR Ml = 1 TO 60 
220 LET T = 60*H + Ml 
222 

224 REM * THIS LOOP ADJUSTS TIME FOR 

225 REM CUSTOMERS AND WINDOWS 
230 FOR Wl = 1 TO 5 

240 IF RC1.W1) = THEN 350 

250 LET RC4.W1) = R(4,W1)+1 



Simulation and Games 149 



260 IF RC2.W1) = THEN 350 

262 

264 REM * THERE IS A LINE 

265 REM REDUCE FIRST PERSON'S TIME 
270 LET L(l.Wl) = LC1,W1)-I 

280 IF LCl.Wl) <> THEN 350 

282 

284 REM * END OF TRANSACTION - MOVE PEOPLE UP IN LINE 

290 FOR P= I TO RC2.WD-1 

300 LET LCP.W1) = LCP+1.W1) 

310 NEXT P 

320 LET LC R(2,W1)»W1 ) = 

322 

324 REM * ONE MORE TRANSACTION - ONE LESS PERSON 

330 LET RC3.W1) = R(3i»l)*l 

340 LET RC2»W1> = RC2.WD-1 

350 NEXT Wl 

352 

354 REM * ENTER 0, 1 OR 2 CUSTOMERS 

360 LET C = INTC RNDC-1>*3 ) 

370 FOR CI = I TO C 

372 

374 REM * SELECT TRANSACTION TIME 

380 LET Tl = INTC RNDC-1>*3+1 ) 

382 

384 REM * NOW FIND THE SHORTEST LINE WITH 

385 REM LESS THAN TEN PEOPLE 
390 LET N = RC2, I) 

400 LET N! = 1 

410 FOR Wl = 2 TO 5 

420 IF RC1.W1) = THEN 460 

430 IF RC2.W1) >= N THEN 460 

432 

434 REM * CURRENT LINE IS SHORTER 

435 REM SAVE WINDOW # AND # OF PEOPLE 
440 LET N = RC2.W1) 

450 LET Nl = Wl 

460 NEXT Wl 

462 

500 IF N <= 9 THEN 590 

510 FOR Wl = 1 TO 5 

520 IF RC1.W1) = THEN 570 

530 NEXT Wl 

532 

540 PRINT "ALL WINDOWS FULL AT") Tj "MINUTES" 

550 MAT PRINT R; 

560 STOP 

562 

564 REM * OPEN ANOTHER WINDOW 

570 LET RCl.Wl) = 1 

530 LET Nl = W! 

590 LET RC2.N1) = RC2.ND+1 

600 LET LC RC2.ND.N1 ) = Tl 

610 NEXT C! 

620 NEXT Ml 

622 

630 GOSUB 800 

640 NEXT H 

650 STOP 

652 

800 PRINT TA3C11)! "AT THE END 0F"> T/60) "HOURS" 

810 PRINT " WINDOW NO. ONE TWO THREE FOUR FIVE" 

820 FOR I = 1 TO 4 

830 PRINT ASCDJ 

840 FOR J = 1 TO 5 

850 PRINT TA3C 15+CJ- 1>*6>! RCI,J>J 

860 NEXT J 

870 PRINT 

880 NEXT I 

890 PRINT 

900 RETURN 

972 
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974 REM 




980 DATA ' 


"1=0PEN 0=CL0SED". 


990 DATA ' 


" PEOPLE SERVED". 


999 END 




RUN 




LINES 





PEOPLE IN LINE- 
MINUTES OPENED" 



AT THE END OF I 
WINDOW NO. ONE TWO 

l=0PEN 0=CLOSED 1 1 



PEOPLE SERVED 31 



25 



HOURS 
THREE FOUR 












FIVE 




AT THE END OF 2 HOURS 



WINDOW NO. ONE 
1=0 PEN 0= CLOSED I 
PEOPLE IN LINE 8 



TWO THREE FOUR FIVE 
10 
8 



PEOPLE SERVED 59 


52 











MINUTES OPENED 120 


120 











AT THE END 


0F 3 


HOURS 






WINDOW NO. ONE 


TWO 


THREE 


FOUR 


FIVE 


1=0PEN O=CL0SED 1 


1 











PEOPLE IN LINE 9 


9 











PEOPLE SERVED 92 


79 











MINUTES OPENED 180 


180 











AT THE END 


0F 4 


HOURS 






WINDOW N0. ONE 


TWO 


THREE 


FOUR 


FIVE 


1=0PEN O=CL0SED 1 


1 


1 








PEOPLE IN LINE 1 














PEOPLE SERVED 122 


10B 


23 








MINUTES OPENED 240 


240 


50 








AT THE END 


0F 5 


HOURS 






WINDOW N0. ONE 


TWO 


THREE 


FOUR 


FIVE 


1=0 PEN 0= CLOSED 1 


1 


1 








PEOPLE IN LINE 1 


1 


1 








PEOPLE SERVED 148 


131 


36 








MINUTES OPENED 300 


300 


1 10 








AT THE END 


0F 6 


HOURS 






WINDOW NO. ONE 


TWO 


THREE 


FOUR 


FIVE 


1 = PEN 0= CLOSED 1 


1 


1 








PEOPLE IN LINE 1 


1 











PEOPLE SERVED 178 


153 


51 








MINUTES OPENED 360 


36 


170 









The run shows that ten minutes into the fourth hour the third window 
was opened. We can see that at the end of the day there was one person waiting 
at window 1, which had served 178 people during the day. Window 2 also had 
one person in line, but had served only 153 customers. Similarly, the third win- 
dow had served 51 customers and left none in line at the end of the day's 
business. 

While the results of LINES provide some interesting information, there are 
virtually unlimited possibilities for extracting more information and for testing 
changes in the original list of assumptions and estimates. 

There have been no provisions for closing a window. We might want to 
close a window due to lack of activity or to allow employees time to lunch. In 
practice, bank tellers close windows but service those customers already in line. 
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Program LINES does not provide for having a window closed with people 
standing in line. We could use a "-1" in the window array to signify this 
condition. 

It is fairly obvious that the assumption of random arrival of customers 
is an oversimplification of the true pattern. Clearly, large numbers of people 
conduct bank business during their lunch hour. Not only does the arrival of 
customers vary during the day, but it varies with the days of the week and of 
the month. Fridays tend to be heavier, and the first of the month is heavy. 

The limit of 10 persons per line was thus arbitrary and perhaps unrea- 
sonable as an absolute limit. The program could be modified to open a new 
window when all the lines contain 10 customers, but when all windows are 
open and all lines contain 10, then we should allow the lines to grow. 

In practice, a new customer generally steps into the shortest line, but 
the customer is not obligated to stay there. Thus we could make provision in 
our simulator for customers to move to a faster moving line. (We know from 
experience that fast-moving lines immediately become slow-moving lines when 
we step into them and slow-moving lines immediately become fast-moving lines 
when we step out of them.) This points up the fact that although a customer 
enters a line based on the number of customers in it, what he really cares about 
is how long he has to wait. We could add a row to the window array giving 
maximum waiting time so far. We could cause a certain waiting time to trigger 
opening a new window. 

As the program is written, when a new window opens only new customers 
may enter that line. Generally when a new window opens, a whole bunch of 
people swarm into the new line. Sometimes the new line quickly exceeds the 
old lines in length. We could modify the simulation of LINES to allow an 
orderly shift of customers from all lines to a newly opened window. 

It is easy to see that we could go on and on at great length, making our 
simulation program more and more like what we believe to be the real life 
activity. What about drive-in windows, automatic tellers, etc.? 

Based on many runs of simulations like this, a business person is in a better 
position to make decisions about hiring, opening hours, business procedures, and 
other aspects of management than he would be without the computer. Once we 
are convinced that a simulation is realistic, then we can experiment with innova- 
tive procedures using computer results to warn us of poor changes without 
actually having to use customers as guinea pigs. 

Similar simulations could be set up for toll booths, grocery store check- 
outs, post offices, gas stations, and stores and businesses of all kinds. 

Summary of Sec. 12-2 

We have looked at a much simplified set of rules for lines at the tellers' 
windows of a bank and written a program to imitate the activities of bank 
customers for a sample business day. Random numbers are used to simulate the 
random nature of the arrival of people at the bank and the random nature of 
transactions. Arrays have proved very useful for keeping track of many of the 
activities of our banking model. We recognize that simulations usually must be 
simplifications of the real activity under study. 
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Problems for Sec. 12-2 

The possibilities for making changes in program LINES and developing 
other models are so varied and so numerous that no attempt will be made to 
enumerate a specific set of problems. Instead you should select one or more of 
the improvements outlined in this section and implement them, along with any 
changes not mentioned that you would like to make. You should obtain several 
runs of your final program to get a range of results. Experiment with differing 
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12-3 Magic Squares 

Magic squares have provided entertainment and been the source of wonder 
for more than a thousand years. They have been considered to have magic 
powers and therefore have been used to keep away evil spirits. Magic squares are 
square arrays of numbers (usually integers) so arranged that all row sums equal 
all column sums and these equal each of the sums of the elements of the two 
main diagonals. 

Of course, this feat can be accomplished by simply entering the same 
number in each position of the array, but this is trivial and of little interest. The 
simplest magic square of real interest is the following three-by -three magic square: 

8 16 

3 5 7 

4 9 2 

Note that all integers from 1 through 9 have been used and that the magic sum is 
15. It turns out that while we can rotate this to get a total of eight different 
positions, there is no other arrangement of these integers that will produce a 
magic square, even though there are 45,360 possible different arrangements. 
The magic sum can be found for integers 1 through n 2 by the formula, 

n 3 + n 



An odd order magic square from 3 up can be generated by a procedure 
called the De la Loubere method. For a 5 X 5 magic square, this method pro- 
duces only one magic square, but millions are possible. The De la Loubere 
method uses the integers 1 to n 2 for an nth-order magic square and may be 
described with the following set of rules: 

1. Begin by entering a "1" in the center column of the first row. 

2. Always move diagonally up one and to the right one and enter the next 
larger integer there unless the move (a) is the move immediately following an 
entry that is a multiple of the order of the magic square, in which case the new 
number goes directly beneath the previous one, or, (b) takes us out the side of 
the square, in which case the new number goes to the extreme left of the new 
row, or, (c) takes us out the top of the square, in which case the new number 
goes to the bottom of the new column. 

3. Proceeding in this way, n 2 should always be placed in the middle 
column of the bottom row, and we know it is time to stop. 
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In program MAGIC for n = 5, the middle column is determined in line 
160, and the row is set to 1 in line 170 so that the first entry in line 190 follows 
rule 1 above. Line 210 checks to see if the condition in rule 2a has occurred. 
Line 250 checks for the condition of rule 2b, and line 300 checks on rule 2c. 
Line 200 determines the stopping point as per rule 3. 



MAGIC 

94 REM * THIS PROGRAM GENERATES 0DD 0RDER 

95 REM MAGIC SQUARES BY THE DE LA L0UBERE 

96 REM METHOD 
100 DIM M<47.47> 

110 PRINT "WHAT ODD SIZE"! 

120 INPUT N 

130 IF N/2 = INT<N/2> THEN 110 

140 MAT M = ZERCN.N) 

150 LET CI = O 

- 160 LET C = INT<N/2>+t 

- 170 LET R = 1 

180 LET CI » Cl + 1 

■ 190 LET MCR.O = CI 
-200 IF CI = Nt2 THEN 330 
■210 IF Cl/N <> INT<C1/N) THEN 240 

220 LET R =• R+l 

230 G0T0 180 

240 LET C = C+l 
-250 IF C <= N THEN 290 

260 LET C = 1 

270 LET R = R-l 

280 G0T0 180 

290 LET R = R-l 
-300 IF R > THEN 180 

310 LET R = N 

320 G0T0 180 

330 PRINT 

340 LET T = 

342 

344 REM * ADD ONE COLUMN T0 FIND MAGIC NUMBER 

350 FOR I = 1 TO N 

360 LET T = T+MCI.l) 

370 NEXT I 

372 

380 PRINT "MAGIC NUMBER IS"J T 

390 PRINT 

400 MAT PRINT MJ 

410 END 

RUN 

MAGIC 

WHAT ODD SIZE? 5 
MAGIC NUMBER IS 65 

17 24 1 8 15 

23 5 7 14 16 

4 6 13 20 22 

10 12 19 21 3 

11 18 25 2 9 



As written, this program will arrange and print magic squares up to 47 by 
47. Of course, we can't print 47 numbers across the page. So we would have to 
do some rearranging to make the results easy to read. 
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Problems for Sec. 12-3 



1) The magic squares of this section used 1 as the first number. It is easy 
to show that beginning with any integer will also produce a magic 
square. Modify program MAGIC to allow beginning with any integer. 
Be careful about rule 2a. 

2) Another way to generate odd order magic squares may be described as 
follows. Place the first number in the array position directly beneath 
the central element, and proceed down one row and to the right one 
column unless this move: (a) takes you both out the bottom and out 
Lhe right side of ihe square, in which case the new entry goes in posi- 
tion (2,n), or (b) takes you out the bottom of the square, in which- 
case the new entry goes to the top of the new column, or (c) takes you 
out the right side of the square, in which case the new entry goes to the 
extreme left in the new row, or (d) the new location is already occupied, 
in which case the new entry goes in the second row directly below the 
previous entry. (Note that this may take you out the bottom.) Write 
a program to generate this type of odd- order magic square. 

3) Squares of the type described in problem 2 can also be generated by 
beginning with any integer. Modify your program for problem 2 to 
do this. 

4) There are 880 different 4-by-4 magic squares using the integers 1 
through 16. One of them can be generated by the following simple 
procedures: MAT READ the integers 1 through 16 into a 4-by-4 array 
and then make these exchanges: 









A(l,l) 


^ 


A(4,4) 








A(2,2) 


; — *• 


A(3,3) 








A(3,2) 


; — »■ 


A(2,3) 








A(4,l) 


7 — *: 


A(l,4) 




Write a 


program 


to do this. 






12-4 


Games 











There are hundreds of games which may be played with computers. There 
are games played with cards, dice, dominoes, and numbers. There are board 
games and two- and three-dimensional tic-tac-toe. Programs have been written 
to play casino gambling games and to simulate slot machines. There are programs 
which simulate horse races. Programs can be written to play word games such as 
Hangman or Geography using strings and files. Using computer files, game- 
"la^in^ ^ro^rsrns can be devised which rnodif" strate^ ,r d or > or * r '* r> ' r or> ^on^o.. 
quences of previous decisions. It is not the purpose of this section to present 
any comprehensive or systematic study of games or game strategy. Rather, it is 
the purpose of this section to arouse the sleeping giant of gamesmanship that 
may lie within the reader by exploring two examples. 
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Battle of Numbers 

The game, Battle of Numbers, begins with two integers, such as 63 and 11, 
where one should always be somewhat larger than the other. Two players take 
turns subtracting an integer in the range 1 to 11 from 63 and subsequent new 
remainders. The last player to subtract loses. The feature that makes this game 
intriguing is that usually the first player may assure a win by applying proper 
strategy on the very first move. Working out the strategy is fairly straightforward 
if we look at the last few moves. Suppose it is your turn, and you may subtract 
up to 11 from 15. If you subtract 2 leaving 13, you win because your opponent 
must leave you a number in the range of 2 to 12, subtracting in the range 11 to 1. 
Now it is your turn again and you can be assured of leaving your opponent a "1," 
which he must subtract, thereby losing. Now one pair of plays earlier you can 
assure yourself of leaving your opponent with 13 by leaving 25 and before that 
37, and so forth. That is, you want to leave (11 + 1) i + 1, or one more than 
an integral multiple of one more than the largest number you are allowed to 
subtract. For subtracting in the range 1 to a, then leave (a + 1) i + 1. This 
means that if the human player goes first in competition with the computer, the 
human can always win except when the original larger number is one more than 
an integral multiple of the largest subtractable number. However, one slip-up, 
and the computer can always win. 

Thus in our game with 63 as the starting total and 11 as the maximum 
subtractable integer, divide 63 by 12 to get 5 as the integral quotient. Since 5 
times 12 is 60, if we are faced with 61 we can't win and should subtract some 
random integer. But since we are not faced with 61, we want to leave our 
opponent with 61 by subtracting 2. No matter what our opponent does, we will 
leave 49, then 37, then 13, then 1. The calculations and testing here are done in 
lines 370 through 410 of program BATTLE. Note that lines 280 through 320 
assure that the human player inputs a number in the range 1 to a. If you would 
like to play the game, but don't want to type the program, many timesharing 
systems include the game under the name BATNUM. 



94 REM * THIS PR0GRAM PLAYS BATTLE 0F NUMBERS 

100 PRINT TABU5JJ "BATTLE 0F NUMBERS" 

I0S RANDOMIZE 

110 PRINT "D0 Y0U KN0W THE RULES"! 

120 INPUT AS 

130 IF AS = "YES" THEN 180 

140 PRINT "WE TAKE TURNS SUBTRACTING AN INTEGER IN THE" 

150 PRINT "INTERVAL 1 T0 S0ME NUMBER A FR0M AN0THER NUMBER" 

160 PRINT "B WITH THE DIFFERENCE LEAVING B F0R THE NEXT" 

170 PRINT "TURN. THE LAST PERS0N T0 TAKE L0SES." 

180 PRINT "HERE WE G0 . ***" 

184 REM * SELECT RANGE AND STARTING NUMBER 

185 REM THE RESTRICTING CBNSTANTS HERE ARE ARBITRARY 
190 LET A = INTC RNDC-l>*14+7 ) 

200 LET B = INTC RNDC- 1 >*77+4 1 > 

210 PRINT 

220 PRINT "INTERVAL = 1 T0"J A 

230 PRINT 

240 PRINT "STARTING TOTAL IS") B 

250 PRINT 
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260 PRINT "YOU G0"> 

270 INPUT P 

272 

274 REM * CHECK FOR AN INTEGER IN THE LEGAL RANGE 

275 REM LESS THAN 0R EQUAL T0 THE REMAINING T0TAL 
-280 IE P <> INT(P) THEN 310 

290 IF INTCCP-D/A) <> THEN 310 

300 IF P <= B THEN 330 

310 PRINT "ILLEGAL MOVE" 

-320 G0T0 250 

330 LET B = B-P 
340 IF B > THEN 370 

360 STOP 

380 LET C = B - C CA+ 1 > * I * 1 ) 

390 IF C > THEN 420 

400 LET C = INTC RNDC-1)*A+1 ) 
-410 IF B-C < THEN 400 

420 LET B = B-C 

430 PRINT "I TAKE"» C 
440 IF B = THEN 470 

450 PRINT "LEAVING A TOTAL OF"; B 

460 GOTO 250 

470 PRINT "*** YOU WIN ***" 

480 END 



RUN 
BATTLE 

BATTLE OF NUMBERS 
D0 YOU KNOW THE RULES? YES 
HERE WE GO. *** 

INTERVAL = 1 TO 20 

STARTING TOTAL IS 68 

YOU GO? 4 

I TAKE 6 

LEAVING A TOTAL OF 58 

YOU GO? 15 

I TAKE 7 

LEAVING A TOTAL, OF 36 

YOU GO? 14 

I TAKE 6 

LEAVING A TOTAL OF 16 

YOU GO? 15 

I TAKE 1 

*** YOU WIN *** 



The Knight's Tour 

The game of chess is played on a square board having 64 smaller squares, 
eight on a side. The various pieces belonging to the two sides are assigned specific 
rnoyes. The knight moves in sn L-sha n sd ^^^^ rv*otn«<? ^>«o ?omovn *« ^r*-*r 
direction and two squares in a direction perpendicular to the first move. Thus 
from a position near the center of the chess board, a knight may move to any of 
eight possible positions. If the knight occupies position (3, 4), then he may 
move to any one of the following: (4, 6), (4, 2), (2, 6), (2, 2), (5, 5), (5, 3), (1, 5) 
or (1, 3). In general, if the knight occupies position (r, c), then he may move to 
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any of the following: (r + 1, c + 2), (r + 1, c - 2), (r - 1, c + 2), (r - 1, 
c - 2), (r + 2, c + 1), (r + 2, c - 1), (r - 2, c + 1), or (r - 2, c - 1), 
unless the new position is off the board. An ancient and intriguing challenge is 
to move the knight about the board in such a way that it visits all 64 squares of 
the chess board exactly once. 

This is a difficult feat, known as the Knight's Tour, but it can be done. We 
will here contrive only to select moves randomly until the knight reaches a 
dead end due to the fact that all reachable squares have already been visited. We 
use an 8-by-8 array B to simulate the board. Initially all entries are zero to 
indicate open positions. We will place the move numbers in the squares as the 
knight moves about the board. The 8-by-2 array U stores all eight possible 
moves from the present position as described in the previous paragraph. These 
eight moves are scanned for legal use in lines 220, 230, and 240 of program 
T0UR. Note that INT ((Rl - l)/8) = in line 220 is equivalent to (0<R1 

T0UR 



94 


REM * THIS PROGRAM CARRIES OUT A RANDOM 


95 


REM KNIGHT'S T0UR T0 DEAD END 


100 


DIM BC8»8)»TC2.8).UC8.2> 


110 


MAT B = ZER 


120 


MAT READ U 


130 


LET M = 1 


140 


PRINT "BEGIN WHERE"! 


150 


INPUT R. C 


160 


LET BCR.C) = M 


170 


MAT T = ZER 


172 




174 


REM * Kl COUNTS THE NUMBER BF LEGAL M0V: 


180 


LET Kl = 


182 




184 


REM * ENTER ALL LEGAL MOVES IN T ARRAY 


190 


FOR T = 1 T0 8 


200 


LET Rl = R + UCT, 1) 


210 


LET CI = C + UCT.2) 


220 


IF INTC CR1-D/8 ) <> THEN 280 


230 


IF INTC CCI-l>/8 ) <> THEN 280 


240 


IF BCR1.C1) <> THEN 280 


250 


LET Kl = Kl+1 


260 


LET TCt.Kl) = Rl 


270 


LET TC2.K1) = CI 


280 


NEXT T 


282 




290 


IF Kl = THEN 350 


292 




294 


REM * SELECT A LEGAL MOVE AT RANDOM 


300 


LET T = INTC RNDC-1)*K1+1 ) 


310 


LET R = TC1.T) 


320 


LET C = TC2.T) 


330 


LET M = M+l 


340 


G0T0 160 


342 




350 


PRINT "GOT T0"J M 


360 


PRINT "PRINT IT") 


370 


INPUT AS 


380 


IF AS <> "YES" THEN 420 


390 


MAT PRINT Bl 


392 




394 


REM 


400 


DATA 1,2. 1,-2. -1,2# -1.-2 


410 


DATA 2.1. 2>-l» -2,1. -2,-1 


420 


END 


RUN 




TOUR 
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BEG 


IN 


WHERE? 


4.4 












G0T 


re 


1 41 














PRINT 


IT? YES 



















8 


15 








24 


39 





14 




1 1 





7 


38 








25 







16 


9 


12 





26 


23 


40 


10 




13 


18 


1 


6 


37 








17 







5 


36 


27 


22 


41 













2 


19 


32 


35 


28 
















4 





30 


21 


34 







3 





31 


20 


33 





29 



AND RK9). If a move is found to be legal, then we enter it into the T array. 
When all legal moves are in the Array T, Kl is the number of legal moves. If 
Kl is zero, then the knight has reached a dead end and we may print the tour 
or not. We present a flowchart in two parts. Figure 12-1 details the sorting out 
of legal next moves. Figure 12-2 shows where a legal move chosen at random 
is incorporated into the tour. 

Summary of Sec. 12-4 

We have seen programs to play Battle of Numbers and simulate the 
Knight's Tour. In the first case there is a guaranteed strategy which we exploit 
in our program. In the second case we have not employed strategy of any kind 
but merely progress from step to legal step at random with no procedure for 
maximizing results. 

Projects for Sec. 12-4 

Some of the projects listed will require considerable study and planning 
before the actual coding of the program takes place. Be sure to allow a reason- 
able amount of time should you attempt any of the longer projects. Some of 
the solution programs can be very long indeed. The reader needn't feel limited 
to projects proposed here. 

1) Modify the game of Battle of Numbers so that the last person to take 
away wins. Be sure to change the computer's strategy. 

2) Write a program to play the game of Nim. 

3) Write a program to play Tic-Tac-Toe. First decide whether or not you 
want an unbeatable program. 

4) Write a program to play three-dimensional Tic-Tac-Toe. 

5) Write a program to lengthen the knight's tour by backing up every time 
the knight hits a dead end. 

6) Write a program to play the game of Geo^ra^h" usm" strings and files 
In this game two players take turns naming places where the first 
letter of the new place must be the last letter of the last place named. 

7) Write a program to make the computer the dealer in a blackjack game. 

8) Write a program to play craps. 

9) Write a program to simulate a Roulette- wheel. 



^ TffUR J 



v 



MATB = ZER 
Cleor the board 



I 



MAT READ U 
Store all 
potential 
moves 



M = l 

Start move counter 



M 



INPUT R, C 
Input starting 
position 



I 



B(R,C) = M 
Place move 
on the board 



v 



«s- 



MATT=ZER 
Clear possible 
move array 



J 



Find all possible 
moves and select 
one at random 
(seeFiq.!2-IB) 



M 



M=M + i 
Bump move 
counter 



Figure 12-1 Flowchart for keeping track of Knight's Tour. 



K1 = 
Set up legal 
move counter 



R1 = R + U(T,1) 
C1 = C + U(T,2) 
Find next possible 
move 



T 

Is 



*£r 



I 



F0R T = 1TjZf8 

Check 8 
potential moves 



/ next point \ 
\off the board ./ 

/Has \. 
/ next point \ 
\been visited / 


i ca 






Yes 








KI=K1 + I 
Bump legal 
move counter 






f 




i 




T{1,KI)=RI 
T(2, K1)=CI 
Enter point as 
possible move 




WCVT T 










Print move number 
and offer to 
print the whole 
tour; then quit 



T = INT(RND(-1)*K1 + 1) 
Select a move at random 
from legal moves 



I 



f END J 



Return to main 
flowchart at 
this point 



Figure 12-2 Flowchart for selecting moves at random for Knight's Tour. 
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ISCII Character Set Printable on Model 33 



C0DE CHARACTER 


CODE 


CHARACTER 


32 






64 


8 


33 


1 




65 


A 


34 


" 




66 


B 


35 


* 




67 


C 


36 


S 




68 


D 


37 


% 




69 


E 


38 


& 




70 


F 


39 






71 


G 


40 






72 


H 


41 






73 


I 


42 






74 


J 


43 






75 


K 


44 






76 


L 


45 






77 


M 


46 






78 


N 


47 






79 





48 







80 


P 


49 


1 




81 





50 


2 




82 


R 


51 


3 




83 


S 


52 


4 




84 


T 


53 


5 




85 


U 


54 


6 




86 


V 


55 


7 




87 


w 


56 


8 




88 


X 


57 


9 




89 


y 


58 


1 




90 


L 


59 


1 




91 


C 


60 


< 




92 


\ 


61 


X 




93 


] 


62 


> 




94 


t 


63 


7 




95 


•" 


NOTE SPECIAL 


CHARACTERS! 




LINEFEED 


0R 


CTRL 


J 10 




FORMFEED 


BR 


CTRL 


L 12 




RETURN 0R CTRL M 


13 




SPACE 






32 
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Summary of Flowchart Shapes 



( Terminal ) 



Input 
Output 




Used for beginning and ending of program. 



Indicates data entered into the computer or results 
returned by the computer. 



READ 


MAT READ 


READ* 


PRINT 


MAT PRINT 


READ: 


INPUT 


MAT INPUT 


WRITE* 
WRITE: 



Indicates that a decision is being made. 

IF XXXXXX THEN YYY 



Predefined 
process 



Indicates a sequence of program statements not in- 
cluded in the flowchart. May be used for G0SUB 
statement. 







Connector. Indicates transfer from one statement to 
another other than the next higher numbered 
statement in the program. N matches another N 
elsewhere in the same flowchart. 



Operation 
Opens loop 
Closes loop 



Used for anything not already specified. 

NEXT X 
LET 

RETURN 
ST0P 



APPENDIX C 
Summary of Statements in BASIC 



NOTE: Not all statements which appear in this appendix will run on all systems 
and the list here does not cover every statement for some systems. 



END 
PRINT 

PRINT USING n 
READ 

DATA 



G0T0n 

0NXG0T0n 1 ,n 2 ,n 3 , 

etc., or 
G0T0 X0Fn u n 2 ,n 3 , 

etc., or 
G0T0 n x ,n 2 ,n 3 , etc., 

0NX 
LET 



REM 



It is the highest numbered statement of every BASIC 
program. It is optional on a few systems and re- 
quired on most. 

Prints values of variables, calculated values, and 
literal expressions inside quotes. Spacing is con- 
trolled by commas, semicolons, and TAB. More 
spacing functions are available on some systems. 

Prints according to format specified in line n. 

Specifies printing for PRINT USING statements. 

Enters values stored in DATA statements into vari- 
ables named in the READ statement. All legal 
BASIC variables (string and numeric) may be read 
in a single READ statement by separating them 
with commas. 

Stores values for READ statements. Items of data 
must be separated by commas. Some systems re- 
quire that strings be in quotes. 

Names n as the next line number to be executed by 
the computer. 

Computed G0T0 goes to the line number in the xth 
position in the list of line numbers n x , n 2 , n 3 , etc. 
If available, one of these should work. They are 
not interchangeable. 



Assignment statement. The word LET is optional on 
many systems. Stores the value on the right of an 
equals sign in the variable named on the left. May 
be used to assign string variables. Multiple assign- 
ment is available on most systems. 

Permits the programmer to remark upon the program 
in the program itself without affecting the pro- 
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IF THEN n 



F0RX; 



AT0B 
STEPC 



gram operation. Some systems allow ' to serve the 
same purpose. 

Tests the truth of an algebraic sentence placed be- 
tween the IF and the THEN. Sends the computer 
to line n if the sentence is true. Control passes to 
the next line if the sentence is false. 

Opens a machine loop with first value for X at A, last 
number B, and increment C. If C is omitted, the 



NEXT X 



G0SUB n 



0NXG0SUBn 1 ,n 2 ,n 3 , 

etc., or 
G0SUBX0Fn 1 ,« 2 ,n 3) 

etc., or 
G0SUBX0N« 1 ,« 2 ,n 3 , 

etc. 
RETURN 
DEFFNA(X) = 



DEF FNA(X) 

FNEND 

ST0P 

DIM A( ),B$( ). 

INPUT 
REST0RE 



REST0RE* 
REST0RE$ 



Closes machine loop. Sends the computer to the 
corresponding F0R statement to increment and 
test X. 

Sends the computer to a subroutine beginning at line 
n. Upon executing a RETURN statement, the 
computer returns to the line immediately follow- 
ing G0SUB n. 

Computed G0SUB goes to the subroutine beginning 
at the xth line number in the list. Upon executing 
a RETURN statement, control goes to the line 
immediately following this statement. If avail- 
able, one of these should work. They are not 
interchangeable. 

Closes all subroutines. 

Program-defined function. The letter pair FN desig- 
nates that a function is called for. The function 
name is A, and the argument is X. Any letter of 
the alphabet may be used. Some systems permit 
multiple arguments separated by commas. 

Opening line of a multiple-line program-defined 
function. Several arguments may be permitted, 
separated by commas. A value must be assigned 
to FNA in the lines to follow. 

Closing statement of a multiple-line, program-defined 
function. 

Execution of the ST0P statement causes termination 
of the RUN at that point. 

Declares dimensions for one- or two-dimensional 
numeric arrays or string arrays or both. One 
number is required in the parentheses for a list 
and two numbers separated by a comma are 
required for a two-dimensional array. 

Same as READ except that data is to be typed on the 
keyboard of the remote terminal. 

Restores all data in the program. The next item of 
data to be read will be the very first data item in 
the program. 

Restores numeric data only. 

Restores string data only. 
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REST0RE n 
CHANGE A$ T0 A 



CHANGE A T0 A$ 
RAND0MIZE 

MAT READ 
MAT PRINT 

MAT INPUT 



MAT C = A * B 
MAT A = B + C 
MAT A = B - C 
MAT A = (K)*B 

MAT A = ZER 



MAT A = C0N 



MAT E = IDN 



MAT X = INV(A) 
MAT A - TRN(B) 



SQR(X) 

ABS(X) 

SGN(X) 



Restores all data from line n on. 

Stores the ASCII code of the characters of the string 

A$ in the array A with the length of the string in 

characters stored in A(0). 
Stores a string in A$ with length specified in A(0) 

and characters determined by the ASCII code 

stored in the array elements of the A list. 
Causes the random numbers generated in successive 

runs of the same program to vary. 

MATRIX INSTRUCTIONS 

Enters data into numeric and string arrays. Several 
arrays can be read in the same MAT READ state- 
ment by separating the array names with commas. 

Prints the array(s) listed, separated by commas or 
semicolons. The delimiter used specifies spacing 
for the preceding array. Numeric and string arrays 
are allowed. 

Enters data into an array (string or numeric) from the 
keyboard. Some systems allow more than one 
array listed here; others do not. 

Enters the product of A and B into array C. 

Enters the sum of B and C into array A. 

Enters the difference of B and C into array A. 

Multiplies each entry of B by the scalar K and enters 
the result into A. 

Creates the zero matrix (fills each entry of A with 
zero). ZER may be followed by redimensioning 
specifications in parentheses. 

Fills each element of A with 1. C0N may be fol- 
lowed by redimensioning specifications in 
parentheses. 

Forms the identity matrix E. E must be square. All 
elements with equal row and column numbers are 
1 and all other elements are 0. IDN may be fol- 
lowed by redimensioning specifications in 
parentheses. 
Finds the inverse of A and enters it in X (if it exists). 
Fills A with the transpose of B. 

FUNCTIONS 

Computes the non-negative square root of X. X must 

be non-negative. 
Computes the absolute value of X. 
Returns the value 1 for X positive, for X equals 

zero, and - 1 for X negative. 
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INT(X) 



RND(X) 



SIN(X),C0S(X),TAN(X) 
ATN(X) 



L0G(X) 
EXP(X) 
TAB(X) 



ASC( ) 

LEN(A$) 
EXT$(A$,I,J) 

NUM 



DET 



RND 



Returns integer part of X. For some systems this is 
the mathematically greatest integer function. For 
others, the computer simply chops off the digits 
to the right of the decimal point. (The results 
are the same for non-negative numbers.) 

Generates a random number. In some systems the 
set of random numbers accessed is determined by 
the value of X. Some systems generate the same 
set 01 numbers each time the program is run, 
whereas others provide a different set and st-i 
others provide an option. See RND below. 

Computes the sin, cos, or tan of X, where X must be 
in radians. 

Computes the arctan of X. ATN(X) is in radians. 
The program must be written to determine the 
correct quadrant for the result. 

Computes the logarithm of X using base e. 

Computes the number whose L0G base e is X. 

Moves the printing mechanism to the (X + l)st posi- 
tion of the carriage unless the printing mechanism 
is already past that point, in which case there is 
no effect. 

Returns the ASCII code for the character placed in 
parentheses. 

Returns the number of characters in the string A$. 

String extract function. Isolates a substring in A$ 
from the Ith to the Jth character inclusive. 

Returns the number of elements typed in response to 
the most recent MAT INPUT statement executed 
in the program. 

Returns the determinant of the most recent matrix 
for which the inverse has been found with the 
MAT INV ( ) statement. No argument required. 

Returns a random number. The numbers will be the 
same on successive runs of the program if the 
RAND0MIZE statement is not present in the pro- 
gram and different on successive runs if the 
RAND0MIZE statement is present. 

FILES 

Hewlett Packard Files 



FILES 



READ #N,R 



Names files to be used by the present program and 

makes them available for access. File names are 

separated by commas. 
Sets the file pointer to the beginning of the Rth 

record of the Nth file named in the files statement. 

In addition, when followed by a semicolon and 
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READ #N; 
MAT READ # 
PRINT #N,R 



PRINT #N; 

MAT PRINT # 

IF END #N THEN n 

TYP(N) 



FILES 



READ #N, 
WRITE #N, 

IF M0RE #N 
IF END #N 
APPEND #N 



variable list, this statement reads values from the 
file to the variables. 

When followed by a variable list, this statement reads 
from the file at a point previously established. 

Reads values from a file with the same options al- 
lowed for READ #. 

Sets the file pointer in the Nth file named in the files 
statement to the beginning of the Rth record and 
erases the contents of that record. In addition, 
when followed by a semicolon and a variable list, 
this statement causes the contents of the variables 
to be printed into the file. 

When followed by a variable list this statement 
causes the contents of the variables to be printed 
wherever the file pointer has been previously set. 

Prints values from a matrix to a file with the same 
options as for PRINT #. 

When executed, this statement sets a flag. If at any 
later time an attempt is made to read past the end 
of data or past the physical end of the file or to 
print past the physical end of the file, control 
passes to line n. 

The TYP (N) function takes on values from 1 to 4, 
depending on the nature of the next information 
in the file. TYP(N) becomes 1 for number, 2 for 
string, and 3 for end of file. If the argument is 
negative, the value 4 will be returned for end of 
record. 

General Electric Files 

Names files to be used by the current program and 
makes them available for access. File names are 
separated by semicolons. 

ASCII Files 

Reads data from the Nth file named in the program 

into the variables of the variable list following the 

comma. 
Writes data from the variable list following the 

comma to the file. The variables in the list may be 

separated by semicolons or commas to achieve 

corresponding spacing in the file. 
Determines whether or not there is more data in the 

file. 
Determines whether or not the end of the file has 

been reached. 
Allows additional data to be written to an existing 
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SCRATCH #N 
RESTORE #N 



file by setting the file pointer to the end of the 

Nth file and placing the file in write mode. 
Sets the pointer of the Nth file to the beginning of 

the file, erases the file, and places it in write mode. 
Sets the pointer of the Nth file to the beginning of 

the file and places it in the read mode. 

Binary Sequential Files 



Binary sentient!?.! files may be processed by all of the above sta^c""*!*" h" 
substituting a colon (:) for the pound sign (#). Binary files should be less ex- 
pensive to work with; however, ASCII files are very convenient due to the fact 
that they may be listed at the terminal. 



READ :N, 
WRITE :N, 
IF M0RE :N 

IF END :N 

SCRATCH :N 

REST0RE :N 

SETW N T0 X 



Random Access Files 

Same as ASCII. 

Same as ASCII. 

Tests true, except when the file pointer is at the 
physical end of file. 

Tests false, except when the file pointer is at the 
physical end of file. 

Places the file pointer at the beginning of the file and 
fills the file with binary zeros. 

Places the file pointer at the beginning of the file 
without altering the contents of the file. 

Places the file pointer to the Xth word of file N. To 
access a random file by record, the formula 
W*(R - 1) + 1 places the pointer at the begin- 
ning of the Rth record if there are W words per 
record. 
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Program 

ADD 

ADD1 

ADD 2 

ALPHA 

ALPHA 1 

AREA1 

AREA2 

ARRAY $ 

ASC 

AVG 

BATTLE 

BOUNCE 

CITY 

COLIN 

C0MPAR 
C0MPR$ 
C0NCAT 
C0NVRT 
C0RREL 
COSINE 

DECIDE 

DIST1 

DIST2 

DIVIDE 

DRAW 

DRAW01 
DRAW02 

END 
ENTER 1 
ENTER2 
ENTER3 

ENTER4 
FIB01 

FUNCTION 

GE0ARI 

GRAPH 1 
GRAPH2 
GRAPH3 
GROWTH 

HALF 
IMAGE01- 
IMAGE05 
INT 
LIM01 
LIM02 
LINE1 



Description 



Section 



Adds Numbers from Data 1-2 

Adds and Counts Numbers from Data 1-2 

Adds Numbers from Input 1-2 

Arranges Characters of String 3-3A 

First Use of Change Statement 3-3B 

Area by Summing Rectangles 6 

Areal with Variable Interval Width 6 

Demonstrates a String Array 3-3 

Prints Sample ASCII Codes 3-3B 

Averages Numbers from Data H-2 

Plays Battle of Numbers 12-4 

Prints Successive Heights for a Magic Ball . . 9-2 

First GE Data File 4-3 

Determines Colinearity of Three Points 

in a Plane 7 "^ 

Compares Two Numerics 1-2 

Program COMPAR with Strings 3-2 

Appends One String on Another 3-3A 

Converts Numeric to String 3-3A 

Calculates Linear Correlation Coefficient . . 11-4 
Compares Computer cos(x) Function and 

Series Evaluation 9-4 

First Demonstration of Strings 3-2 

Uses Distance Formula for Two Points .... 7-2 

Finds Distance for Several Pairs of Points . . 7-2 

Demonstrates Synthetic Division 8-3 

Draws 5 Numbers at Random from 10 with 

Replacement 1"3 

Draws with FOR-NEXT 1-3 

Draws Numbers from 10 Without 

Replacement 1"3 

Prints A$(I) in Substring Scheme 3-3A 

Prints Data Serially in File INV01 (HP) .... 4-2 

Adds Data to File INV01 (HP) 4-2 

Prints Data to Random Access File 

INV02 (HP) 4-2 

Adds Data to File INV02 (HP) 4-2 

Prints the First 30 Fibonacci Numbers .... 9-1 
Demonstrates Multiple Line Defined 

Function 2-5 

Compares Geometric and Arithmetic 

Sequences and Series 9-3 

Bare Plot, No Axes, Origin Only 5-2 

Graphl with Axes 5-2 

Plotting from an Array with Axes 5-3 

Orders Contents of City into File 

CITY1 (GE) 4-3 

Halves Remaining Distance of Separation . . 9-1 

Demonstrates Print Using 2-3 

Computes Compound Interest by Formula . 9-1 

Prints Powers of (-3/5) 9-2 

Prints Terms of ( 2+( 1/5)1 H) 9-2 

Gives Equation of Line Given Two Points . . 7-2 
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LINES Simulates Bank Teller Window Activity ... 12-2 

LOGIC! rrints Truth Values 2-4 

L0GIC2 Gets Factors Using Truth of 

N/X=INT(N/X) 2-4 

MAGIC Prints Odd Order De La Loubere Magic 

Squares 12-3 

MAT$ Demonstrates MAT READ and MAT PRINT 

for String Arrays 3-3B 

MAT01 Demonstration MAT READ and MAT 

PRINT 1-5 

MAT02 Demonstrates Matrix Product 1-5 

MEDIAN Finds Median for Odd Number of Data '.'.'.'. 11-3 

MOD Modular Arithmetic with One Subroutine . . 1-4 

MODI Modular Arithmetic with Nested 

Subroutines 1-4 

OPRATN Uses t ,*,/,+ — 1-2 

ORDER Orders Numbers from Data 11-3 

ORDER$ Alphabetizes Names in a String Array 3-3B 

PERP Equation of Line Given Point and Points 

on Perpendicular Line 7-3 

POINT Finds Intersection of Two Lines in 

AX+BY+C=0 Form 7-4 

P0LYO1 Compares Values of F(X) by Three Methods 8-1 

PRT Demonstration of User Defined Function . . 1-4 

PYTH1 Reads and Prints Coordinates of Three 

Points 7-5 

PYTH2 Sets Up Three Points in Six List Positions . . 7-5 

PYTH3 Checks Three Points for Vertices of 

Right Triangle 7-5 

RANK Arranges the Contents of File CITY2 (GE) . 4-3 

READ Reads File INV01 (HP) 4-2 

READ1 Reads with IF END Trap (HP) 4-2 

READ 2 Finds Number of Parts in Inventory File 

INV01 (HP) 4-2 

READCITY Reads File CITY (GE) 4-3 

REDCITY2 Reads Contents of File CITY2 (GE) 4-3 

REVRS Prints String in Reverse Order 3-3A 

REVRS1 Reverses Characters of a String Using Change 3-3B 

RNDENTER Writes 10 Random Numbers to Binary File 

RAND (GE) 4-3 

RNDREAD Reads File RAND (GE) 4-3 

RNDSORT Arranges Contents of File RAND (GE) .... 4-3 

ROUND Rounds to Various Precisions 1-3 

SALES1 Matrix Demonstration 10-1 

SALES2 Salesl Stripped to Bare Essentials 10-1 

SEQ01 Prints Ratios of Successive Odd Integers ... 9-1 

SLOPE Finds Slope of Lines Given Two Points .... 7-2 

SOLVE Solves Simultaneous Linear Equations Using 

MAT INV 10-2 

SUBSTR Demonstrates A$(I,J) As a Substring 3-3 

TAB01 Demonstrates Tab Printing of String 

Characters 2-2 

TAB02 Prints Numerics Using the Tab Function ... 2-2 

TOUR Knight's Tour— Prints at Dead End 12-4 

UPDATE Edits Inventory File INV02 (HP) 4-2 

VAR Calculates Variance and Standard Deviation 11-2 

WEATHER Calculates Linear Correlation for 

Temperature Data 11-4 
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WEEKA Matches String and Substring 3-3A 

WEEKA1 Finds Day Number from String Day 3-3B 

WEEKB1 WEEKA1 Checking Only First Three 

Letters of Input String 3-3B 

WETHR Array Demonstration with Weather Data ... 1-4 

WETHR1 Array Demonstration with Weather Data .. . 1-4 
XFER Transfers Contents of City to Random 

File CITY2 (GE) 4-3 

ZER0O1 Search for Change of Sign in Polynomial 

Function 8-2 

ZER0O2 Uses Interval Halving to Find an Approxi- 
mate Zero 8-2 
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INDEX 



ABS(X) function, 7 

Algorithm, 10 

Alphabetization, 42 

AND, 29 

Append statement, 55 

Area, 72 

Arithmetic mean, 137 

Arithmetic operators, 4 

Arithmetic sequence, 

116 
Arithmetic series, 122 
Array; numeric, 15, 127 

string, 34 
ASCII code, 31,35,40, 

44 
ASCII files, 54 
Assignment operator, 5 
Assignment statement, 5, 

31,40,47 
ATN(X) function, 11 
Average, 137 
Axes, 64, 68 

Battle of numbers, 155f 
Binary files, 54, 57 
Bubble sort, 140 

Cartesian coordinates, 78 
Census, 54 

CHANGE statement, 40 
Chess, 156 
Circle, 74 

CLK(X) function, 11 
Coefficient matrix, 132 
Coefficients, 101 
Coinciding lines, 90 
Collinear points, 78 
Column vector. 127 
Comma delimiter, 3, 33 
Common difference, 116 
Common ratio, 117 
Compound interest, 117 
Computed G0SUB state- 
ment, 15 



Computed GQ)T0 state- 
ment, 3 
Computer functions: 

ABS(X), 7 

ASC(I$), 44 

ATN(X), 11 

CLK(X), 11 

C0S(X), 11 

DEF, 12 

EXP(X), 11 

EXT$( ), 44 

INT(X), 7, 8 

LEN(A$), 35,40 

L0G(X), 11 

MAX, 29 

MIN, 29 

NUM, 18 

RND,9 

RND(X), 8 

SEG$( ), 44 

SGN(X), 7 

SIN(X), 11 

SQR(X), 7 

TAB(X), 23, 64 

TAN(X), 11 

TIM(X), 11 

TYP(N), 51 
C0N, 19 

Concatenation, 39 
Constant matrix, 132 
Content addressing, 52 
Continuous function, 

104 
Convergence, 119 
Correlation coefficient, 

linear, 143, 146 
C0S(X) function, 11 
Cosine, 125 

CREATE command, 58, 
61 

DATA statement, 2, 43 
Degree of a polynomial, 
101 

182 



De la Loubere, 152 
Delimiter; comma, 3, 25, 

33 
in a file, 47 
semicolon, 3, 25, 33 
Descartes' Rule of Signs, 

112f 
DIM statement, 10,35, 

40 
Dispersion, 138 
Distance, 72, 78f 
Distance formula, 80 
Divergence, 119 
Dummy data, 2, 47, 48, 

59, 137 
Dummy string, 38 

Efficiency, 10, 42, 46, 

102,140 
E-format, 5, 26 
END statement, 2 
EOF, 52 

Error, 75, 112,125 
Error message, 48, 51 
EXP(X) function, 11 
EXT$( ) function, 44 

Factor Theorem, 108 
Fibonacci sequence, 115 
Files, 46, 54 

ASCII, 54 

binary, 54, 57 

random access, 50, 57f 

sequential, 57 

serial, 46, 55, 57 

teletype, 54 
FILES statement, 47, 55 
FNEND statement, 29 
Formatting, 25 
F0R-NEXT statement, 9 
Functions, computer; see 

Computer functions 
Function, mathematical, 
64 
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Games, 147, 154-159 
Geometric sequence, 117 
Geometric series, 122 
G0SUB statement, 13 
GOTO statement, 3 
Graph, 64 

Hero's formula, 100 
Hypotenuse, 95 

Identity matrix, 19, 132 

IDN, 19 

IF END statement, 48, 

59 
IF MORE statement, 55 
IF-THEN statement, 27 
Inconsistent equations, 

90 
Indeterminant solution 

89f 
Initialization, 6 
INPUT statement, 6, 31, 

40 
Integral zeros, 112 
Interest, compound, 117 
Intersecting lines, 84 
INT(X) function, 7,8 
INV, 21,131 
Inverse of a matrix, 132 

Knight's tour, 156ff 

LEN(A$) function, 35, 

40 
LET statement, 5,40 
Limit of a sequence, 119 
Linear correlation coef- 
ficient, 143, 146 
List, 10 

LIST command, 2 
Logical operators: 

AND, 29 

OR, 29 

NOT, 29 
Logical value, 28 
LOG(X) function, 11 
Loops, 9 

nested, 16 

Magic squares, 152ff 
MAT equals, 21 
MAT INPUT, 18 
MAT PRINT, 18,43 
MAT READ, 18, 43 
Matrix, 127 

coefficient, 132 

constant, 132 

identity, 19, 132 



Matrix algebra, 19 
MAX function, 29 
Median, 140 
Midpoint, 75, 81 
MIN function, 29 
Monte Carlo, 126 
Multiple assignment 

statement, 6 
Multiple zeros, 111 

NAME command, 2 
Nested form of a poly- 
nomial, 102,110 
Nested loops, 16 
NEW command, 2, 54 
Noncollinear points, 94 
Nonreal zeros, 104 
NOT, 29 
NUM function, 18 

Operators 

arithmetic, 4 

assignment, 5 

logical, 27 

relational, 2, 3 
OR, 29 

Ordering data, 140 
Origin of a graph, 64 

Parabola, 66 

Parallel lines, 84 

Pearson r, 146 

Perpendicular bisector, 
85 

Perpendicular lines, 84 

Plot, 64 

Plotters, 64 

Pointer, 51, 55, 59 

Polynomial, 12, 101 

Polynomial equation, 
104 

Prettyprinting, 4 

PRINT statement, 2, 40, 
47,81 

PRINT USING state- 
ment, 25 

Pseudo-random numbers, 
8 

Pythagorean Theorem, 
95 

Quadratic formula, 104, 

111 
Quotes, 33, 35 

Radians, 11 

Random access files, 57, 
58 



Random numbers, 147 
RANDOMIZE statement, 

9 
READ statement, 2, 31, 

40,55 
Record of storage, 47, 58 
Relational operators, 2f 
REM statement, 4 
Remainder Theorem, 

108 
RESTORE statement, 57 
RETURN statement, 13 
Right triangle, 79, 84, 95 
RND function, 9 
RND(X) function, 8 
Row vector, 127 
RUN command, 3 

SAVE command, 54 
Scale, 66 

SCRATCH statement, 57 
Sectors of storage, 47 
SEG$( ) function, 44 
Semicolon delimiter, 3, 

33 
Sequence; arithmetic, 
116 

defined, 115 

Fibonacci, 115 

geometric, 117 

of partial sums, 122 
Sequential files, 57 
Serial files, 55 
Series; arithmetic, 122 

defined, 122 

geometric, 122 
SETW statement, 59 
SGN(X) function, 7 
Significant digits, 5 
Similar triangles, 85 
Simpsons' rule, 77 
Simulation, 147 
Simultaneous linear 

equations, 88, 131 
SIN(X) function, 11 
Slope, 81 

positive, 82 

negative, 82 
Slope-intercept, 83 
Solution matrix, 132 
Spacing; comma, 43 

semicolon, 43 
Standard deviation, 137, 

138 
Statements: 

APPEND, 55 

ASSIGN, 47 

assignment, 5, 31, 40 
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Statements (continued) 
CHANGE, 40 
computed G0SUB, 15 
DATA, 2, 43 
DIM, 10, 35, 40 
END, 2 
FILES, 47, 55 
FNEND, 29 
F0R-NEXT, 9 

r-iz-hiOTTTO i O 
» t \i> o *~i i .» . J- «J 

G0T<P, 3 
if' jjiNu, 4S, o» 
IF M<Z>RE, 55 
IF-THEN, 27 
image, 25 
INPUT, 6, 31,40 
LET, 5, 40 
MAT, 18, 19 
multiple assignment, 6 
PRINT, 2,31,40 
PRINT USING, 25 
RANDOMIZE, 9 
READ, 2,31,40,55 
REM, 4 
RESTORE, 57 
RETURN, 13 
SCRATCH, 57 
SETW, 59 
ST0P, 5 
WRITE, 57 
ST0P statement, 5 



Storage, 59, 68 
String, 25, 31 

dummy, 38 

null, 50 
SQR(X) function, 7 
Subroutine, 13 
Subscripted variable, 10 
Synthetic division, 109 
System command, 2 

CREATE, 58, SI 

LIST, 2 

AT A TV ITT? CI 

NEW, 2, 54 
0PEN, 47 
RUN, 3 
SAVE, 54 

TAB(X) function, 23, 64 
TAN(X) function, 11 
Teletype files, 54 
TIM(X) function, 11 
Transfer; conditional, 2 

unconditional, 3 
Trapezoid method, 77 
Trial and error, 10 
Triangles, similar, 85 
TRN, 21 
Truth values, 27 
TYP(N) function, 51 

Undefined condition, 82 



Undefined slope, 84, 97 
Undefined solution, 89 
User-defined function, 
12 
multiple line, 29 

Variables, 4 
numeric, 31 
string, 31 
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SUUSerijJLBU stung, <ji 

Variance, 138, 142 
Variation, 113 
Vector; column, 127 
row, 127 

WRITE statement, 57 

X-axis, 65,68 
X-coordinate, 78 

Y-axis, 65, 68 
Y-coordinate, 78 

ZER, 19 

Zeros; integral, 112 

multiple, 111 

nonreal, 104 

real, 104 



ADVANCED BASIC: 
Applications and Problems 

James S. Coan 

Now you can extend your expertise in the BASIC language with 
this book of advanced techniques and applications of the BASIC 
language. It allows you to gradually increase both your understand- 
ing of concepts and your ability to write programs. The develop- 
ment of each topic progresses from simple to more sophisticated 
problems and is accompanied by many sample programs to clarify 
the discussions. 

ADVANCED BASIC opens with a review chapter on the elemen- 
tary points of BASIC. Then, the book covers extended features, 
strings and files, and the applications of the BASIC language in 
such areas as: coordinate geometry, area, sequences and series, 
polynomials, graphing, simulations and games. Summaries and 
problem exercises end each section. 

Other books of interest . . . 

BASIC BASIC: 

An Introduction to Computer Programming In 
BASIC Language 

James S. Coan 

This popular text lor high school and college students integrates pro- 
gramming in BASIC language and the teaching ot mathematics. Each topic 
begins with a short, complete program and moves to more sophisticated 
problems. The use of flowcharts is encouraged as an aid in writing programs. 
Summaries and questions review important concepts. #5872-?, paper, 
#5873-X, cloth, 256 pages, 6x9, Mus. 

THE BASIC WORKBOOK: 

Creative Techniques for Beginning Programmers 

Kenneth E. Schoman, Jr. 

A hands-on approach to learning BASIC and the fundamentals of 
problem-solving using a computer. Through many exercises, you develop 
a workable BASIC vocabulary, a feeling for the logic and intrigue of pro- 
gramming algorithms, and the sell-confidence needed to use a computer 
in a variety of applications. #5104-2. paper, 128 pages, 6'/ 2 x 11, ///us. 
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